perm filename LISP.LAP[RUT,LSP] blob
sn#343755 filedate 1978-03-22 generic text, type T, neo UTF8
(DEFLIST (SELECTQ1 SUBPR MEMCDR %FILEXT %PRINA %DUMPATOMS %SUBSTR %%PACO %%PAFN %%PAFS)
T
NOCALL)
(DEFPROP PLUS (LAMBDA (L) (*EXPAND L '*PLUS)) MACRO)
(DEFPROP DIFFERENCE (LAMBDA (L) (*EXPAND L '*DIF)) MACRO)
(DEFPROP TIMES (LAMBDA (L) (*EXPAND L '*TIMES)) MACRO)
(DEFPROP QUOTIENT (LAMBDA (L) (*EXPAND L '*QUO)) MACRO)
(DEFPROP LESSP
(LAMBDA (L)
(LIST '*LESS
(*EXPAND1 (CDR (REVERSE (CDR L)))
'(LAMBDA (X Y) (COND [(AND X [*LESS X Y]) Y])))
(CAR (LAST L))))
MACRO)
(DEFPROP GREATERP
(LAMBDA (L)
(LIST '*GREAT
(*EXPAND1 (CDR (REVERSE (CDR L)))
'(LAMBDA (X Y) (COND [(AND X [*GREAT X Y]) Y])))
(CAR (LAST L))))
MACRO)
(DEFPROP MIN (LAMBDA (L) (*EXPAND L '*MIN)) MACRO)
(DEFPROP MAX (LAMBDA (L) (*EXPAND L '*MAX)) MACRO)
(DEFPROP MCONS (LAMBDA (L) (*EXPAND2 (CDR L) 'CONS)) MACRO)
(DEFPROP PUSH
(LAMBDA (L) (LIST 'SETQ (CADR L) (LIST 'CONS (CADDR L) (CADR L))))
MACRO)
(DEFPROP POP
(LAMBDA (L)
(LIST 'PROG1
(LIST 'CAR (CADR L))
(LIST 'SETQ (CADR L) (LIST 'CDR (CADR L)))))
MACRO)
(DEFPROP INCR
(LAMBDA (L) (LIST 'SETQ (CADR L) (LIST 'ADD1 (CADR L))))
MACRO)
(DEFPROP DECR
(LAMBDA (L) (LIST 'SETQ (CADR L) (LIST 'SUB1 (CADR L))))
MACRO)
(DEFPROP NOTANY (LAMBDA (L) (LIST 'NOT (CONS 'SOME (CDR L)))) MACRO)
(DEFPROP NOTEVERY (LAMBDA (L) (LIST 'NOT (CONS 'EVERY (CDR L)))) MACRO)
(DEFPROP F:L (LAMBDA (L) (LIST 'FUNCTION (CONS 'LAMBDA (CDR L)))) MACRO)
(DEFPROP DO (LAMBDA (L) (%DO (CDR L))) MACRO)
(DEFPROP RPTQ
(LAMBDA (L) (%DO (CONS 'FOR (CONS 'RPTN (CONS 'RPT (CDR L))))))
MACRO)
(LAP %DO SUBR)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(MOVEM 1Q (SPECIAL SELECTQ) S)
(MOVEI 2Q (QUOTE (UNTIL WHILE)) S)
(CALL 2Q (E MEMQ) S)
(JUMPE 1Q TAG2)
(HLRZ@ 5Q 0Q P)
(CAIE 5Q (QUOTE UNTIL) S)
(JRST 0Q TAG4)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(JRST 0Q TAG3)
TAG4 (HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE NOT) S)
(CALL 2Q (E XCONS) S)
TAG3 (PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(HRRZ@ 1Q 1Q)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 3Q (QUOTE (PROG (DO!V) DO!L (AND X (RETURN DO!V)) (SETQ DO!V (PROGN . Y)) (GO DO!L))) S)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE (X Y)) S)
(CALL 3Q (E SUBPAIR) S)
(JRST 0Q TAG1)
TAG2 (MOVE 5Q (SPECIAL SELECTQ) S)
(CAIE 5Q (QUOTE FOR) S)
(JRST 0Q TAG6)
(HRRZ@ 1Q 0Q P)
(CALL 1Q (E CADR) S)
(MOVEM 1Q (SPECIAL SELECTQ) S)
(MOVEI 2Q (QUOTE (IN ON)) S)
(CALL 2Q (E MEMQ) S)
(JUMPE 1Q TAG10)
(PUSH P 0Q P)
(HRRZ@ 1Q 0Q P)
(CALL 1Q (E CADDR) S)
(PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(CALL 1Q (E CDDDR) S)
(PUSH P 1Q)
(HRRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(MOVEM 1Q -2Q P)
(HRRZ@ 5Q -3Q P)
(HRRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE IN) S)
(JRST 0Q TAG12)
(MOVEI 1Q (QUOTE (CAR DO!L)) S)
(JRST 0Q TAG11)
TAG12 (MOVEI 1Q (QUOTE DO!L) S)
TAG11 (CALL 1Q (E NCONS) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 3Q (QUOTE ((LAMBDA (DO!L) (PROG (X DO!V) DO!L (AND (NULL DO!L) (RETURN DO!V)) (SETQ X E) (SETQ DO→
!L (CDR DO!L)) (SETQ DO!V (PROGN . Y)) (GO DO!L))) L)) S)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE (X Y L E)) S)
(CALL 3Q (E SUBPAIR) S)
(SUB P (C 2Q 0Q 2Q 0Q))
(JRST 0Q TAG7)
TAG10 (MOVE 5Q (SPECIAL SELECTQ) S)
(CAIE 5Q (QUOTE RPT) S)
(JRST 0Q TAG14)
(HRRZ@ 1Q 0Q P)
(CALL 1Q (E CADDR) S)
(CALL 1Q (E NCONS) S)
(HRRZ@ 2Q 0Q P)
(HRRZ@ 2Q 2Q)
(HRRZ@ 2Q 2Q)
(HRRZ@ 2Q 2Q)
(CALL 2Q (E XCONS) S)
(HRRZ@ 2Q 0Q P)
(HLRZ@ 2Q 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 3Q (QUOTE ((LAMBDA (X DO!L) (PROG (DO!V) DO!L (AND (*GREAT X DO!L) (RETURN DO!V)) (SETQ DO!V (PRO→
GN . Y)) (SETQ X (ADD1 X)) (GO DO!L))) 1Q E)) S)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE (X Y E)) S)
(CALL 3Q (E SUBPAIR) S)
(JRST 0Q TAG7)
TAG14 (MOVEI 1Q (QUOTE "BAD FORMAT - DO") S)
(CALL 1Q (E ERROR) S)
TAG7 (JRST 0Q TAG1)
TAG6 (MOVE 2Q 0Q P)
(MOVEI 1Q (QUOTE PROGN) S)
(CALL 2Q (E CONS) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP *EXPAND2 SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(HRRZ@ 1Q 1Q)
(JUMPN 1Q TAG2)
(HLRZ@ 1Q -1Q P)
(JRST 0Q TAG1)
TAG2 (HLRZ@ 1Q -1Q P)
(PUSH P 1Q)
(HRRZ@ 1Q -2Q P)
(CALL 2Q (E *EXPAND2) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP UNMACEXPAND SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 1Q (E PATOM) S)
(JUMPE 1Q TAG6)
(MOVE 1Q -1Q P)
(JRST 0Q TAG2)
TAG6 (HLRZ@ 5Q -1Q P)
(CAIE 5Q (QUOTE MACROEXPANSION) S)
(JRST 0Q TAG7)
(HRRZ@ 5Q -1Q P)
(HRRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(HRLM@ 5Q -1Q P)
(HRRZ@ 5Q -1Q P)
(HRRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(HRRZ@ 5Q 5Q)
(HRRM@ 5Q -1Q P)
TAG7 (MOVE 5Q -1Q P)
(MOVEM 5Q 0Q P)
TAG1 (HLRZ@ 1Q 0Q P)
(CALL 1Q (E UNMACEXPAND) S)
(HRRZ@ 1Q 0Q P)
(MOVEM 1Q 0Q P)
(CALL 1Q (E CONSP) S)
(JUMPN 1Q TAG1)
(MOVE 1Q -1Q P)
(JRST 0Q TAG2)
TAG2 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(DEFP + *PLUS SUBR)
(DEFP - *DIF SUBR)
(DEFP * *TIMES SUBR)
(DEFP // *QUO SUBR)
(DEFP +I ADD1 SUBR)
(DEFP -I SUB1 SUBR)
(DEFP = EQUAL SUBR)
(DEFP LT *LESS SUBR)
(DEFP GT *GREAT SUBR)
(DEFP PUT PUTPROP SUBR)
(DEFP PRIN PRIN1 SUBR)
(DEFP READL LINEREAD SUBR)
(DEFP MAPL MAPLIST LSUBR)
(DEFP MAPCL MAPCAR LSUBR)
(DEFP CONSCOUNT SPEAK SUBR)
(LAP DIR SUBR)
(PUSH P 1Q)
(CALL 0Q (E GENSYM) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E UFDINP) S)
(MOVEI 2Q (QUOTE NIL))
(CALL 2Q (E INC) S)
(MOVEM 1Q 0Q P)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q TAG5 0Q))
(MOVEI 1Q (QUOTE T) S)
(JSP 13Q *ERRSET1)
TAG1 (CALL 0Q (E RDFILE) S)
(MOVE 2Q -6Q P)
(CALL 2Q (E CONS) S)
(MOVEM 1Q -6Q P)
(JRST 0Q TAG1)
(JRST 0Q *ERRSET2)
TAG5 (MOVEI 2Q (QUOTE T) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E INC) S)
(MOVE 1Q 0Q P)
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP *RENAME SUBR)
(CALL 2Q (E *APPEND) S)
(JCALL 17Q (E RENAME) S)
NIL
(LAP FILBAK SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG5)
(MOVE 1Q -3Q P)
(CALL 1Q (E NCONS) S)
(HLRZ@ 5Q 1Q)
(MOVEM 1Q -3Q P)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG4)
TAG5 (HRRZ@ 1Q -3Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG6)
(HRRZ@ 5Q -3Q P)
(MOVE 1Q -3Q P)
(CALL 1Q (E NCONS) S)
(HLRZ@ 4Q 1Q)
(HLRZ@ 4Q 4Q)
(MOVEM 1Q -3Q P)
(MOVEM 4Q 0Q P)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG4)
TAG6 (HRRZ@ 5Q -3Q P)
(HLRZ@ 5Q 5Q)
(MOVEM 5Q 0Q P)
(MOVE 1Q 5Q)
(CALL 1Q (E CONSP) S)
(JUMPE 1Q TAG11)
(HRRZ@ 5Q 5Q)
(HLRZ@ 4Q 0Q P)
(MOVEM 4Q 0Q P)
(MOVEM 5Q -1Q P)
TAG11
TAG4 (MOVE 2Q -2Q P)
(MOVE 1Q -1Q P)
(PUSHJ P %FILEXT)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(MOVEM 1Q -2Q P)
(MOVE 5Q (SPECIAL FILBAKBAK) S)
(JUMPE 5Q TAG13)
(MOVE 2Q 5Q)
(MOVE 1Q -1Q P)
(PUSHJ P %FILEXT)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 1Q)
(MOVE 1Q -2Q P)
(CALL 2Q (E *RENAME) S)
TAG13 (MOVE 1Q -2Q P)
(CALL 17Q (E DELETE) S)
(MOVE 2Q -2Q P)
(MOVE 1Q -3Q P)
(SUB P (C 4Q 0Q 4Q 0Q))
(JCALL 2Q (E *RENAME) S)
NIL
(LAP %FILEXT SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(JUMPN 1Q TAG2)
(MOVE 1Q 2Q)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q 2Q)
(CALL 1Q (E AEXPLODE) S)
(MOVEM 1Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 1Q (E AEXPLODE) S)
(PUSH P 1Q)
(MOVE 1Q -1Q P)
(CALL 1Q (E LENGTH) S)
(CALL 1Q (E ADD1) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E NTH) S)
(MOVE 2Q 1Q)
(MOVE 1Q 0Q P)
(CALL 2Q (E *NCONC) S)
(CALL 1Q (E READLIST) S)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(DEFV FILBAK Q)
(DEFV FILBAKBAK QBK)
(LAP DE FSUBR)
(MOVEI 2Q (QUOTE EXPR) S)
(JCALL 2Q (E %DEFINE) S)
NIL
(LAP DF FSUBR)
(MOVEI 2Q (QUOTE FEXPR) S)
(JCALL 2Q (E %DEFINE) S)
NIL
(LAP DM FSUBR)
(MOVEI 2Q (QUOTE MACRO) S)
(JCALL 2Q (E %DEFINE) S)
NIL
(LAP DV FSUBR)
(HRRZ@ 2Q 1Q)
(HLRZ@ 2Q 2Q)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E SET) S)
(MOVE 2Q (SPECIAL ALLVALS) S)
(HLRZ@ 1Q 0Q P)
(CALL 2Q (E ENTER) S)
(MOVEM 1Q (SPECIAL ALLVALS) S)
(HLRZ@ 1Q 0Q P)
(MOVEM 1Q (SPECIAL EDITV) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP %DEFINE SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 1Q (E LENGTH) S)
(MOVEI 2Q (QUOTE 3Q))
(CALL 2Q (E *LESS) S)
(JUMPN 1Q TAG6)
(HLRZ@ 1Q -4Q P)
(MOVEM 1Q 0Q P)
(CALL 1Q (E LITATOM) S)
(JUMPE 1Q TAG6)
(HRRZ@ 1Q -4Q P)
(HLRZ@ 1Q 1Q)
(MOVEM 1Q -1Q P)
(CALL 1Q (E CONSP) S)
(JUMPN 1Q TAG5)
(MOVE 1Q -1Q P)
(CALL 1Q (E LITATOM) S)
(JUMPE 1Q TAG12)
(MOVE 5Q -3Q P)
(CAIN 5Q (QUOTE EXPR) S)
(JRST 0Q TAG5)
TAG12
TAG6 (MOVEI 1Q (QUOTE "ILLEGAL FORMAT - DE, DF, DM") S)
(CALL 1Q (E ERROR) S)
TAG5 (HRRZ@ 5Q -4Q P)
(HRRZ@ 5Q 5Q)
(MOVEM 5Q -4Q P)
(MOVEI 2Q (QUOTE (EXPR FEXPR SUBR FSUBR LSUBR MACRO)) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E GETL) S)
(MOVEM 1Q -2Q P)
(JUMPE 1Q TAG14)
(MOVE 5Q (SPECIAL SAVE) S)
(JUMPE 5Q TAG16)
(MOVE 1Q 0Q P)
(CALL 1Q (E NCONS) S)
(CALL 17Q (E SAVE) S)
(JRST 0Q TAG15)
TAG16 (MOVE 1Q 0Q P)
(CALL 1Q (E UNBREAK!) S)
(HLRZ@ 2Q -2Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E REMPROP) S)
TAG15 (MOVEI 1Q (QUOTE Redefined) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(MOVE 4Q 1Q)
(JRST 0Q TAG13)
TAG14 (MOVE 4Q 0Q P)
TAG13 (MOVE 2Q -4Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E CONS) S)
(MOVEI 2Q (QUOTE LAMBDA) S)
(CALL 2Q (E XCONS) S)
(MOVE 3Q -3Q P)
(MOVE 2Q 1Q)
(MOVE 1Q 0Q P)
(MOVEM 4Q -2Q P)
(CALL 3Q (E PUTPROP) S)
(MOVE 2Q (SPECIAL ALLFNS) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E ENTER) S)
(MOVEM 1Q (SPECIAL ALLFNS) S)
(MOVE 5Q 0Q P)
(MOVEM 5Q (SPECIAL LASTWORD) S)
(MOVE 1Q -2Q P)
(SUB P (C 5Q 0Q 5Q 0Q))
(POPJ P)
NIL
(DEFV SAVE T)
(DEFV ALLFNS NIL)
(DEFV ALLVALS NIL)
(LAP SAVE FSUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(HLRZ@ 1Q 1Q)
(MOVEI 2Q (QUOTE (EXPR FEXPR SUBR FSUBR LSUBR MACRO)) S)
(MOVEM 1Q -1Q P)
(CALL 2Q (E GETL) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG5)
(MOVE 1Q -1Q P)
(CALL 1Q (E UNBREAK!) S)
(HRRZ@ 2Q 0Q P)
(HLRZ@ 2Q 2Q)
(HLRZ@ 1Q 0Q P)
(CALL 2Q (E CONS) S)
(MOVEI 3Q (QUOTE SAVE) S)
(MOVE 2Q 1Q)
(MOVE 1Q -1Q P)
(CALL 3Q (E PUTPROP) S)
(HLRZ@ 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E REMPROP) S)
(MOVE 1Q -1Q P)
(JRST 0Q TAG1)
TAG5 (MOVEI 1Q (QUOTE NIL))
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP UNSAVE FSUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(HLRZ@ 1Q 1Q)
(MOVEI 2Q (QUOTE SAVE) S)
(MOVEM 1Q -2Q P)
(CALL 2Q (E GET) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG5)
(MOVE 1Q -2Q P)
(CALL 1Q (E UNBREAK!) S)
(MOVEI 2Q (QUOTE (EXPR FEXPR SUBR FSUBR LSUBR MACRO)) S)
(MOVE 1Q -2Q P)
(CALL 2Q (E GETL) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG7)
(HLRZ@ 2Q 1Q)
(MOVE 1Q -2Q P)
(CALL 2Q (E REMPROP) S)
TAG7 (HLRZ@ 3Q 0Q P)
(HRRZ@ 2Q 0Q P)
(MOVE 1Q -2Q P)
(CALL 3Q (E PUTPROP) S)
(MOVEI 2Q (QUOTE SAVE) S)
(MOVE 1Q -2Q P)
(CALL 2Q (E REMPROP) S)
(MOVE 1Q -2Q P)
(JRST 0Q TAG1)
TAG5 (MOVEI 1Q (QUOTE NIL))
TAG1 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP DRM FSUBR)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E CHRVAL) S)
(MOVEI 3Q (QUOTE 12Q))
(HRRZ@ 2Q 0Q P)
(HLRZ@ 2Q 2Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 3Q (E %DEREAD) S)
NIL
(LAP DSM FSUBR)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E CHRVAL) S)
(MOVEI 3Q (QUOTE 13Q))
(HRRZ@ 2Q 0Q P)
(HLRZ@ 2Q 2Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 3Q (E %DEREAD) S)
NIL
(LAP %DEREAD SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(CALL 1Q (E IASCII) S)
(MOVEM 1Q -2Q P)
(MOVE 5Q -1Q P)
(JUMPN 5Q TAG2)
(MOVEI 2Q (QUOTE 25Q))
(CALL 2Q (E SETCHR) S)
(MOVEI 2Q (QUOTE READMACRO) S)
(MOVE 1Q -2Q P)
(CALL 2Q (E REMPROP) S)
(JRST 0Q TAG1)
TAG2 (MOVEI 3Q (QUOTE READMACRO) S)
(MOVE 2Q 5Q)
(CALL 3Q (E PUTPROP) S)
(MOVE 2Q 0Q P)
(MOVE 1Q -2Q P)
(CALL 2Q (E SETCHR) S)
TAG1 (MOVE 1Q -2Q P)
(SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP DSKIN FSUBR)
(PUSH P 1Q)
(CALL 0Q (E GENSYM) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E CONS) S)
(CALL 17Q (E INPUT) S)
(MOVE 2Q (SPECIAL DSKIN) S)
(PUSH P 1Q)
(CALL 2Q (E %READIN) S)
(MOVEI 1Q (QUOTE Files-Loaded) S)
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(DEFV DSKIN T)
(LAP %READIN SUBR)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL *RAISE) S)
(PUSH P 1Q)
(PUSH P 2Q)
(MOVE 5Q (SPECIAL *RAISEDSK) S)
(MOVEM 5Q (SPECIAL *RAISE) S)
(MOVEI 2Q (QUOTE NIL))
(CALL 2Q (E INC) S)
(MOVEM 1Q -1Q P)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVE 5Q -2Q P)
(JUMPE 5Q TAG10)
(MOVEI 1Q (QUOTE 0Q))
(CALL 1Q (E LINES) S)
TAG10 (PUSH P (C 0Q 0Q TAG11 0Q))
(MOVEI 1Q (QUOTE ERRORX) S)
(JSP 13Q *ERRSET1)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (CALL 0Q (E READ) S)
(MOVEM 1Q 0Q P)
(CALL 1Q (E CONSP) S)
(JUMPE 1Q TAG16)
(HLRZ@ 5Q 0Q P)
(CAIE 5Q (QUOTE LAP) S)
(JRST 0Q TAG20)
(MOVEI 5Q (QUOTE T) S)
(MOVEM 5Q -10Q P)
TAG20 (HRRZ@ 1Q 0Q P)
(CALL 1Q (E CONSP) S)
(JUMPE 1Q TAG22)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E LITATOM) S)
(JUMPE 1Q TAG24)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E UNBREAK!) S)
TAG24
TAG22
TAG16 (MOVE 1Q 0Q P)
(CALL 1Q (E *EVAL) S)
(MOVEM 1Q 0Q P)
(MOVE 5Q -11Q P)
(CAIE 5Q (QUOTE PRINT) S)
(JRST 0Q TAG26)
(CALL 1Q (E PRINT) S)
(JRST 0Q TAG25)
TAG26 (JUMPE 5Q TAG27)
(JUMPE 1Q TAG27)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q 0Q P)
(CALL 2Q (E PRINA) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE 1Q))
(CALL 2Q (E SPACES) S)
TAG27
TAG25 (JRST 0Q TAG1)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q *ERRSET2)
TAG11 (MOVEM 1Q 0Q P)
(MOVE 5Q -2Q P)
(JUMPE 5Q TAG33)
(MOVEI 1Q (QUOTE 0Q))
(CALL 1Q (E LINES) S)
TAG33 (MOVEI 2Q (QUOTE T) S)
(MOVE 1Q -3Q P)
(CALL 2Q (E INC) S)
(MOVE 5Q -1Q P)
(JUMPE 5Q TAG35)
(PUSH P (SPECIAL OBLIST) S)
TAG2 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG42)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVEM 1Q 0Q P)
(PUSH P 5Q)
TAG3 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG47)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVEM 1Q -1Q P)
(PUSH P 5Q)
(MOVEI 2Q (QUOTE UNDEF) S)
(CALL 2Q (E GET) S)
(JUMPE 1Q TAG51)
(MOVEI 2Q (QUOTE %READIN) S)
(MOVE 1Q -2Q P)
(CALL 2Q (E GET) S)
(JUMPN 1Q TAG53)
(MOVEI 3Q (QUOTE %READIN) S)
(MOVEI 2Q (QUOTE T) S)
(MOVE 1Q -2Q P)
(CALL 3Q (E PUTPROP) S)
(JUMPE 1Q TAG55)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE NIL))
(CALL 2Q (E OUTC) S)
(PUSH P 1Q)
(CALL 0Q (E TALK) S)
(MOVEI 1Q (QUOTE 1Q))
(CALL 1Q (E LINES) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE "*WARNING - NOCALL Function ") S)
(CALL 2Q (E PRINAC) S)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q -3Q P)
(CALL 2Q (E PRINA) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE " Not Yet Defined.") S)
(CALL 2Q (E PRINAC) S)
(CALL 0Q (E TERPRI) S)
(MOVEI 2Q (QUOTE NIL))
(POP P 1Q)
(CALL 2Q (E OUTC) S)
TAG55
TAG53
TAG51 (POP P -2Q P)
(JRST 0Q TAG3)
TAG47 (POP P -1Q P)
(JRST 0Q TAG2)
TAG42 (SUB P (C 1Q 0Q 1Q 0Q))
TAG35 (MOVE 5Q 0Q P)
(CAIN 5Q (QUOTE $EOF$) S)
(JRST 0Q TAG57)
(MOVE 1Q 5Q)
(CALL 1Q (E ERR) S)
TAG57 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 4Q 0Q 4Q 0Q))
(JRST 0Q SPECSTR)
NIL
(DEFV *RAISEDSK NIL)
(LAP DSKOUT FSUBR)
(MOVE 5Q (SPECIAL FILPRO) S)
(JSP 6Q SPECBIND)
(0Q 5Q (SPECIAL FILPRO) S)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL *NOPOINT) S)
(0Q 0Q (SPECIAL PP) S)
(PUSH P 1Q)
(MOVE 5Q (SPECIAL *NOPOINTDSK) S)
(MOVEM 5Q (SPECIAL *NOPOINT) S)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVE 5Q (SPECIAL DSKOUT) S)
(MOVEM 5Q (SPECIAL PP) S)
(JUMPE 5Q TAG6)
(MOVEI 1Q (QUOTE 0Q))
(CALL 1Q (E LINES) S)
TAG6 (HLRZ@ 1Q -2Q P)
(MOVEM 1Q 0Q P)
(CALL 1Q (E %DEVP) S)
(JUMPE 1Q TAG10)
(HRRZ@ 5Q -2Q P)
(MOVEM 5Q -2Q P)
(JRST 0Q TAG7)
TAG10 (MOVEI 5Q (QUOTE DSK:) S)
(MOVEM 5Q 0Q P)
TAG7 (HLRZ@ 2Q -2Q P)
(MOVEM 2Q -1Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E LOOKUP) S)
(JUMPE 1Q TAG13)
(CLEARM 5Q (SPECIAL FILPRO) S)
(MOVE 5Q (SPECIAL FILBAK) S)
(JUMPE 5Q TAG15)
(MOVE 1Q -1Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 5Q)
(CALL 2Q (E FILBAK) S)
(MOVEM 1Q (SPECIAL FILPRO) S)
(JUMPN 1Q TAG17)
(MOVEI 2Q (QUOTE NIL))
(CALL 2Q (E OUTC) S)
(PUSH P 1Q)
(CALL 0Q (E TALK) S)
(MOVEI 1Q (QUOTE 1Q))
(CALL 1Q (E LINES) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE "No Backup: ") S)
(CALL 2Q (E PRINAC) S)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q -2Q P)
(CALL 2Q (E PRINA) S)
(CALL 0Q (E TERPRI) S)
(MOVEI 2Q (QUOTE NIL))
(POP P 1Q)
(CALL 2Q (E OUTC) S)
TAG17
TAG15
TAG13 (CALL 0Q (E GENSYM) S)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(CALL 17Q (E OUTPUT) S)
(MOVEI 2Q (QUOTE NIL))
(CALL 2Q (E OUTC) S)
(MOVEM 1Q 0Q P)
(MOVE 1Q (SPECIAL DSKLENGTH) S)
(CALL 1Q (E LINELENGTH) S)
(HRRZ@ 5Q -2Q P)
(MOVEM 5Q -2Q P)
(JUMPN 5Q TAG21)
(MOVE 1Q -1Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG23)
(MOVE 1Q -1Q P)
(JRST 0Q TAG22)
TAG23 (HLRZ@ 1Q -1Q P)
TAG22 (CALL 1Q (E AEXPLODE) S)
(MOVEI 2Q (QUOTE (F N S)) S)
(CALL 2Q (E *NCONC) S)
(CALL 1Q (E READLIST) S)
(MOVEM 1Q -1Q P)
(CALL 1Q (E NCONS) S)
(MOVEM 1Q -2Q P)
(MOVE 1Q -1Q P)
(CALL 1Q (E BOUNDP) S)
(JUMPN 1Q TAG26)
(MOVE 2Q (SPECIAL ALLFNS) S)
(MOVE 1Q (SPECIAL ALLVALS) S)
(CALL 2Q (E *APPEND) S)
(MOVEI 3Q (QUOTE T) S)
(MOVEI 2Q (QUOTE NIL))
(CALL 3Q (E SORT) S)
(MOVE 2Q 1Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E SET) S)
TAG26
TAG21
TAG1 (HLRZ@ 1Q -2Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG30)
(HLRZ@ 1Q -2Q P)
(CALL 1Q (E NCONS) S)
(CALL 17Q (E PPL) S)
(JRST 0Q TAG27)
TAG30 (HLRZ@ 1Q -2Q P)
(CALL 1Q (E *EVAL) S)
TAG27 (HRRZ@ 5Q -2Q P)
(MOVEM 5Q -2Q P)
(JUMPN 5Q TAG1)
(MOVEI 2Q (QUOTE T) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E OUTC) S)
(MOVE 5Q (SPECIAL DSKOUT) S)
(JUMPE 5Q TAG34)
(MOVEI 1Q (QUOTE 0Q))
(CALL 1Q (E LINES) S)
TAG34 (MOVEI 1Q (QUOTE File-Dumped) S)
(PUSHJ P SPECSTR)
(SUB P (C 3Q 0Q 3Q 0Q))
(JRST 0Q SPECSTR)
NIL
(DEFV DSKOUT T)
(DEFV *NOPOINTDSK NIL)
(DEFV DSKLENGTH 120Q)
(PROGN (REMPROP 'LPTLENGTH 'VALUE) (DEFP LPTLENGTH DSKLENGTH VALUE))
(LAP %DEVP SUBR)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE -1Q))
(CALL 2Q (E ANTHCHAR) S)
(CAIE 1Q (QUOTE 72Q))
(TDZA 1Q 1Q)
(MOVEI 1Q (QUOTE T) S)
(JUMPN 1Q TAG1)
(MOVE 1Q 0Q P)
(CALL 1Q (E CONSP) S)
(JUMPE 1Q TAG3)
(HRRZ@ 1Q 0Q P)
(CALL 1Q (E CONSP) S)
TAG3
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP TCONC SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(JUMPN 1Q TAG2)
(MOVE 1Q 2Q)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 1Q)
(MOVEM 1Q 0Q P)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG1)
TAG2 (CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG3)
(MOVEI 1Q (QUOTE "BAD ARGUMENT - TCONC") S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E ERROR) S)
(JRST 0Q TAG1)
TAG3 (HRRZ@ 1Q -1Q P)
(JUMPE 1Q TAG4)
(MOVE 1Q 2Q)
(CALL 1Q (E NCONS) S)
(HRRZ@ 5Q -1Q P)
(HRRM@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(HRRM@ 5Q -1Q P)
(MOVE 1Q -1Q P)
(JRST 0Q TAG1)
TAG4 (MOVE 1Q 2Q)
(CALL 1Q (E NCONS) S)
(MOVEM 1Q 0Q P)
(HRRM@ 1Q -1Q P)
(HRLM@ 1Q -1Q P)
(MOVE 1Q -1Q P)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP LCONC SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(JUMPN 2Q TAG6)
(JRST 0Q TAG2)
TAG6 (MOVE 1Q 2Q)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG1)
(MOVE 1Q 2Q)
(CALL 1Q (E LAST) S)
(HRRZ@ 5Q 1Q)
(MOVEM 1Q 0Q P)
(JUMPN 5Q TAG1)
(MOVE 5Q -2Q P)
(JUMPN 5Q TAG10)
(MOVE 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E CONS) S)
(JRST 0Q TAG2)
TAG10 (MOVE 1Q 5Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG11)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG1)
TAG11 (HLRZ@ 5Q 5Q)
(JUMPN 5Q TAG12)
(MOVE 5Q 0Q P)
(HRRM@ 5Q -2Q P)
(MOVE 5Q -1Q P)
(HRLM@ 5Q -2Q P)
(MOVE 1Q -2Q P)
(JRST 0Q TAG2)
TAG12 (HRRZ@ 5Q -2Q P)
(MOVE 4Q -1Q P)
(HRRM@ 4Q 5Q)
(MOVE 5Q 0Q P)
(HRRM@ 5Q -2Q P)
(MOVE 1Q -2Q P)
(JRST 0Q TAG2)
TAG1 (MOVEI 1Q (QUOTE "BAD ARGUMENT - LCONC") S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E ERROR) S)
(MOVEI 1Q (QUOTE NIL))
TAG2 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP DREVERSE SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 1Q -2Q P)
(MOVEM 1Q 0Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG6)
(MOVE 1Q -1Q P)
(JRST 0Q TAG2)
TAG6 (HRRZ@ 5Q -2Q P)
(MOVE 4Q -1Q P)
(HRRM@ 4Q 0Q P)
(MOVE 4Q 0Q P)
(MOVEM 4Q -1Q P)
(MOVEM 5Q -2Q P)
(JRST 0Q TAG1)
TAG2 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP REMOVE SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(MOVE 1Q 2Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG2)
(MOVE 1Q 2Q)
(JRST 0Q TAG1)
TAG2 (MOVE 2Q -1Q P)
(HLRZ@ 1Q 0Q P)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG3)
(HRRZ@ 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E REMOVE) S)
(JRST 0Q TAG1)
TAG3 (HLRZ@ 1Q 0Q P)
(HRRZ@ 2Q 0Q P)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(CALL 2Q (E REMOVE) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP DREMOVE SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(MOVE 1Q 2Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG3)
(MOVEI 1Q (QUOTE NIL))
(JRST 0Q TAG2)
TAG3 (HLRZ@ 5Q 2Q)
(CAME 5Q -1Q P)
(JRST 0Q TAG4)
(HRRZ@ 1Q 2Q)
(JUMPE 1Q TAG6)
(HLRZ@ 5Q 1Q)
(HRLM@ 5Q 2Q)
(HRRZ@ 5Q 2Q)
(HRRZ@ 5Q 5Q)
(HRRM@ 5Q 2Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E DREMOVE) S)
TAG6 (JRST 0Q TAG2)
TAG4 (PUSH P 2Q)
TAG1 (HRRZ@ 1Q -1Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG14)
(MOVE 1Q 0Q P)
(JRST 0Q TAG10)
TAG14 (HRRZ@ 5Q -1Q P)
(HLRZ@ 5Q 5Q)
(CAME 5Q -2Q P)
(JRST 0Q TAG15)
(HRRZ@ 5Q -1Q P)
(HRRZ@ 5Q 5Q)
(HRRM@ 5Q -1Q P)
(JRST 0Q TAG13)
TAG15 (HRRZ@ 5Q -1Q P)
(MOVEM 5Q -1Q P)
TAG13 (JRST 0Q TAG1)
TAG10 (SUB P (C 1Q 0Q 1Q 0Q))
TAG2 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP TAILP SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(JUMPE 1Q TAG3)
TAG1 (MOVE 1Q 0Q P)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG5)
(MOVE 5Q -1Q P)
(CAME 5Q 0Q P)
(JRST 0Q TAG10)
(MOVE 1Q 5Q)
(JRST 0Q TAG4)
TAG10 (HRRZ@ 5Q 0Q P)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG1)
TAG5 (MOVEI 1Q (QUOTE NIL))
TAG4
TAG3 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP ASSOC# SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
TAG1 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG3)
(HLRZ@ 2Q 5Q)
(HLRZ@ 2Q 2Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG6)
(HLRZ@ 1Q 0Q P)
(JRST 0Q TAG2)
TAG6 (HRRZ@ 5Q 0Q P)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
TAG2 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP PRINTLEV SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CALL 0Q (E TERPRI) S)
(POP P 2Q)
(MOVE 1Q 0Q P)
(CALL 2Q (E PRINLEV) S)
(POP P 1Q)
(POPJ P)
NIL
(LAP PRINLEV SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CALL 1Q (E PATOM) S)
(JUMPE 1Q TAG3)
(MOVE 2Q (SPECIAL PRINLEV) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E PRINA) S)
(JRST 0Q TAG2)
TAG3 (MOVE 5Q (SPECIAL %PREVFN%) S)
(CAME 5Q -1Q P)
(JRST 0Q TAG4)
(MOVE 2Q (SPECIAL PRINLEV) S)
(MOVEI 1Q (QUOTE "\#\") S)
(CALL 2Q (E PRINAC) S)
(JRST 0Q TAG2)
TAG4 (MOVE 1Q (SPECIAL COMMENTFLG) S)
(JUMPN 1Q TAG5)
(HLRZ@ 1Q -1Q P)
(CALL 1Q (E LITATOM) S)
(JUMPE 1Q TAG5)
(MOVEI 2Q (QUOTE COMMENT) S)
(HLRZ@ 1Q -1Q P)
(CALL 2Q (E GET) S)
(JUMPE 1Q TAG5)
(MOVE 2Q (SPECIAL PRINLEV) S)
(MOVEI 1Q (QUOTE "*COMMENT*") S)
(CALL 2Q (E PRINAC) S)
(JRST 0Q TAG2)
TAG5 (MOVE 5Q 0Q P)
(CAIE 5Q (QUOTE 0Q))
(JRST 0Q TAG12)
(MOVE 2Q (SPECIAL PRINLEV) S)
(MOVEI 1Q (QUOTE &) S)
(CALL 2Q (E PRINAC) S)
(JRST 0Q TAG2)
TAG12 (PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 0Q (E CHRCT) S)
(MOVEI 2Q (QUOTE 14Q))
(CALL 2Q (E *LESS) S)
(JUMPE 1Q TAG20)
(MOVE 1Q (SPECIAL PRINLEV) S)
(CALL 1Q (E TAB) S)
TAG20 (MOVE 1Q (SPECIAL $%DOTFLG) S)
(JUMPE 1Q TAG22)
(CLEARM 5Q (SPECIAL $%DOTFLG) S)
(MOVEI 1Q (QUOTE "... ") S)
(JRST 0Q TAG21)
TAG22 (MOVEI 1Q (QUOTE "(") S)
TAG21 (CALL 1Q (E PRINC) S)
(HLRZ@ 1Q -3Q P)
(PUSH P 1Q)
(MOVE 1Q -3Q P)
(CALL 1Q (E SUB1) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E PRINLEV) S)
(MOVE 5Q -3Q P)
(MOVEM 5Q 0Q P)
TAG1 (MOVE 2Q 0Q P)
(MOVE 1Q -3Q P)
(PUSHJ P MEMCDR)
(JUMPE 1Q TAG25)
(MOVE 5Q -1Q P)
(JUMPE 5Q TAG27)
(MOVE 2Q (SPECIAL PRINLEV) S)
(MOVEI 1Q (QUOTE " ...]") S)
(CALL 2Q (E PRINAC) S)
(JRST 0Q TAG15)
TAG27 (MOVEI 5Q (QUOTE T) S)
(MOVEM 5Q -1Q P)
TAG25 (HRRZ@ 5Q 0Q P)
(MOVEM 5Q 0Q P)
(JUMPN 5Q TAG32)
(MOVE 2Q (SPECIAL PRINLEV) S)
(MOVEI 1Q (QUOTE 51Q))
(CALL 2Q (E TYOA) S)
(JRST 0Q TAG15)
TAG32 (MOVE 1Q 5Q)
(CALL 1Q (E PATOM) S)
(JUMPE 1Q TAG33)
(MOVE 2Q (SPECIAL PRINLEV) S)
(MOVEI 1Q (QUOTE " . ") S)
(CALL 2Q (E PRINAC) S)
(MOVE 2Q (SPECIAL PRINLEV) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E PRINA) S)
(MOVE 2Q (SPECIAL PRINLEV) S)
(MOVEI 1Q (QUOTE 51Q))
(CALL 2Q (E TYOA) S)
(JRST 0Q TAG15)
TAG33 (MOVE 2Q (SPECIAL PRINLEV) S)
(MOVEI 1Q (QUOTE 1Q))
(CALL 2Q (E SPACES) S)
(HLRZ@ 1Q 0Q P)
(CALL 1Q (E PATOM) S)
(JUMPN 1Q TAG35)
(HLRZ@ 1Q 0Q P)
(PUSH P 1Q)
(MOVE 1Q -3Q P)
(CALL 1Q (E SUB1) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E PRINLEV) S)
(JRST 0Q TAG34)
TAG35 (MOVE 2Q (SPECIAL PRINLEV) S)
(HLRZ@ 1Q 0Q P)
(CALL 2Q (E PRINA) S)
TAG34 (JRST 0Q TAG1)
TAG15 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 2Q 0Q 2Q 0Q))
TAG2 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(DEFV PRINLEV 6Q)
(LAP MEMCDR SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
TAG1 (HRRZ@ 5Q 0Q P)
(CAME 5Q -1Q P)
(JRST 0Q TAG6)
(MOVEI 1Q (QUOTE T) S)
(JRST 0Q TAG2)
TAG6 (MOVE 5Q -1Q P)
(CAMN 5Q 0Q P)
(JRST 0Q TAG3)
(HRRZ@ 5Q -1Q P)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
TAG2 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(DEFV %PREVFN% NIL)
(DEFV $%DOTFLG NIL)
(LAP LSUBST SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(MOVE 1Q 3Q)
(JUMPE 1Q TAG1)
(CALL 1Q (E PATOM) S)
(JUMPE 1Q TAG2)
(CAME 2Q 3Q)
(JRST 0Q TAG4)
(MOVE 1Q -2Q P)
(JRST 0Q TAG3)
TAG4 (MOVE 1Q 3Q)
TAG3 (JRST 0Q TAG1)
TAG2 (HLRZ@ 2Q 3Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG6)
(MOVE 1Q -2Q P)
(CALL 1Q (E COPY) S)
(HRRZ@ 3Q 0Q P)
(MOVE 2Q -1Q P)
(PUSH P 1Q)
(MOVE 1Q -3Q P)
(CALL 3Q (E LSUBST) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E *NCONC) S)
(JRST 0Q TAG1)
TAG6 (HLRZ@ 3Q 0Q P)
(MOVE 2Q -1Q P)
(MOVE 1Q -2Q P)
(CALL 3Q (E LSUBST) S)
(HRRZ@ 3Q 0Q P)
(MOVE 2Q -1Q P)
(PUSH P 1Q)
(MOVE 1Q -3Q P)
(CALL 3Q (E LSUBST) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
TAG1 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP SELECTQ FSUBR)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E *EVAL) S)
(HRRZ@ 2Q 0Q P)
(PUSHJ P SELECTQ1)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 17Q (E PROGN) S)
NIL
(LAP SELECTQ1 SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 5Q -1Q P)
(MOVEM 5Q 0Q P)
(HRRZ@ 4Q -1Q P)
(MOVEM 4Q -1Q P)
(JUMPN 4Q TAG6)
(MOVE 1Q 5Q)
(JRST 0Q TAG2)
TAG6 (HLRZ@ 5Q 5Q)
(MOVEM 5Q 0Q P)
(HLRZ@ 5Q 5Q)
(CAMN 5Q -2Q P)
(JRST 0Q TAG10)
(MOVE 1Q 5Q)
(CALL 1Q (E CONSP) S)
(JUMPE 1Q TAG7)
(MOVE 2Q 5Q)
(MOVE 1Q -2Q P)
(CALL 2Q (E MEMQ) S)
(JUMPE 1Q TAG7)
TAG10 (HRRZ@ 1Q 0Q P)
(JRST 0Q TAG2)
TAG7 (JRST 0Q TAG1)
TAG2 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP SUBLIS SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(JUMPE 1Q TAG2)
(MOVEI 3Q (QUOTE NIL))
(EXCH 2Q 1Q)
(PUSHJ P SUBPR)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q 2Q)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP SUBPAIR SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(JUMPE 1Q TAG2)
(PUSH P 1Q)
(PUSH P 3Q)
(EXCH 3Q 2Q)
(JUMPN 3Q TAG3)
(MOVEI 3Q (QUOTE (NIL)) S)
TAG3 (MOVE 2Q -1Q P)
(POP P 1Q)
(PUSHJ P SUBPR)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG1)
TAG2 (MOVE 1Q 3Q)
TAG1 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP SUBPR SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG1)
(HRRZ@ 5Q -4Q P)
(MOVEM 5Q 0Q P)
(JUMPE 5Q TAG6)
(MOVE 1Q 5Q)
(PUSHJ P SUBPR)
(MOVEM 1Q 0Q P)
TAG6 (MOVE 3Q -2Q P)
(MOVE 2Q -3Q P)
(HLRZ@ 1Q -4Q P)
(PUSHJ P SUBPR)
(MOVEM 1Q -1Q P)
(HLRZ@ 5Q -4Q P)
(CAME 1Q 5Q)
(JRST 0Q TAG11)
(HRRZ@ 5Q -4Q P)
(CAMN 5Q 0Q P)
(JRST 0Q TAG10)
TAG11 (MOVE 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E CONS) S)
(JRST 0Q TAG7)
TAG10 (MOVE 1Q -4Q P)
TAG7 (JRST 0Q TAG2)
TAG1 (MOVE 5Q -3Q P)
(JUMPN 5Q TAG14)
(MOVE 1Q -4Q P)
(JRST 0Q TAG2)
TAG14 (MOVE 5Q -2Q P)
(JUMPE 5Q TAG15)
(HLRZ@ 5Q -3Q P)
(CAME 5Q -4Q P)
(JRST 0Q TAG17)
(HLRZ@ 1Q -2Q P)
(JRST 0Q TAG2)
TAG17 (JRST 0Q TAG13)
TAG15 (HLRZ@ 5Q -3Q P)
(HLRZ@ 5Q 5Q)
(CAME 5Q -4Q P)
(JRST 0Q TAG22)
(HLRZ@ 1Q -3Q P)
(HRRZ@ 1Q 1Q)
(JRST 0Q TAG2)
TAG22
TAG13 (HRRZ@ 5Q -3Q P)
(MOVEM 5Q -3Q P)
(MOVE 4Q -2Q P)
(JUMPE 4Q TAG24)
(HRRZ@ 5Q 4Q)
(JUMPN 5Q TAG25)
(MOVEI 5Q (QUOTE (NIL)) S)
TAG25 (MOVEM 5Q -2Q P)
TAG24 (JRST 0Q TAG1)
TAG2 (SUB P (C 5Q 0Q 5Q 0Q))
(POPJ P)
NIL
(LAP DSUBST SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P 3Q)
(CAME 2Q 3Q)
(JRST 0Q TAG6)
(CALL 1Q (E COPY) S)
(JRST 0Q TAG2)
TAG6
TAG1 (MOVE 1Q -1Q P)
(CALL 1Q (E PATOM) S)
(JUMPE 1Q TAG10)
(MOVE 1Q 0Q P)
(JRST 0Q TAG2)
TAG10 (MOVE 1Q -2Q P)
(CALL 1Q (E LITATOM) S)
(JUMPE 1Q TAG13)
(HLRZ@ 5Q -1Q P)
(CAME 5Q -2Q P)
(JRST 0Q TAG11)
(JRST 0Q TAG12)
TAG13 (HLRZ@ 2Q -1Q P)
(MOVE 1Q -2Q P)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG11)
TAG12 (MOVE 1Q -3Q P)
(CALL 1Q (E COPY) S)
(HRLM@ 1Q -1Q P)
(JRST 0Q TAG7)
TAG11 (HLRZ@ 3Q -1Q P)
(MOVE 2Q -2Q P)
(MOVE 1Q -3Q P)
(CALL 3Q (E DSUBST) S)
TAG7 (MOVE 5Q -2Q P)
(JUMPE 5Q TAG17)
(HRRZ@ 5Q -1Q P)
(CAME 5Q -2Q P)
(JRST 0Q TAG17)
(MOVE 1Q -3Q P)
(CALL 1Q (E COPY) S)
(HRRM@ 1Q -1Q P)
(MOVE 1Q 0Q P)
(JRST 0Q TAG2)
TAG17 (HRRZ@ 5Q -1Q P)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG1)
TAG2 (SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP RETFROM SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CALL 0Q (E SPDLPT) S)
(MOVEI 3Q (QUOTE NIL))
(MOVE 2Q 1Q)
(MOVE 1Q -1Q P)
(CALL 3Q (E STKSRCH) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG2)
(MOVE 2Q 0Q P)
(CALL 2Q (E OUTVAL) S)
(JRST 0Q TAG1)
TAG2 (MOVEI 1Q (QUOTE "NO EVAL BLIP - RETFROM") S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E ERROR) S)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP LDIFF SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CAME 1Q 2Q)
(JRST 0Q TAG3)
(MOVEI 1Q (QUOTE NIL))
(JRST 0Q TAG2)
TAG3 (JUMPN 2Q TAG4)
(JRST 0Q TAG2)
TAG4 (HLRZ@ 1Q 1Q)
(CALL 1Q (E NCONS) S)
(PUSH P 1Q)
(PUSH P 1Q)
TAG1 (HRRZ@ 5Q -3Q P)
(MOVEM 5Q -3Q P)
(CAME 5Q -2Q P)
(JRST 0Q TAG12)
(MOVE 1Q -1Q P)
(JRST 0Q TAG6)
TAG12 (JUMPN 5Q TAG13)
(MOVEI 1Q (QUOTE "NOT A TAIL - LDIFF") S)
(CALL 1Q (E ERROR) S)
TAG13 (HLRZ@ 1Q -3Q P)
(CALL 1Q (E NCONS) S)
(HRRM@ 1Q 0Q P)
(HRRZ@ 5Q 0Q P)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG1)
TAG6 (SUB P (C 2Q 0Q 2Q 0Q))
TAG2 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP NTH SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(MOVEI 1Q (QUOTE 1Q))
(CALL 2Q (E *GREAT) S)
(JUMPE 1Q TAG3)
(MOVE 2Q -1Q P)
(MOVEI 1Q (QUOTE NIL))
(CALL 2Q (E CONS) S)
(JRST 0Q TAG2)
TAG3
TAG1 (MOVE 1Q -1Q P)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG12)
(MOVE 5Q 0Q P)
(CAIE 5Q (QUOTE 1Q))
(JRST 0Q TAG11)
TAG12 (MOVE 1Q -1Q P)
(JRST 0Q TAG5)
TAG11 (HRRZ@ 5Q -1Q P)
(MOVE 1Q 0Q P)
(MOVEM 5Q -1Q P)
(CALL 1Q (E SUB1) S)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG1)
TAG5
TAG2 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP SUBST SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(MOVE 2Q 3Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG2)
(MOVE 1Q -2Q P)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q 0Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG3)
(MOVE 1Q 0Q P)
(JRST 0Q TAG1)
TAG3 (HLRZ@ 3Q 0Q P)
(MOVE 2Q -1Q P)
(MOVE 1Q -2Q P)
(CALL 3Q (E SUBST) S)
(HRRZ@ 3Q 0Q P)
(MOVE 2Q -1Q P)
(PUSH P 1Q)
(MOVE 1Q -3Q P)
(CALL 3Q (E SUBST) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
TAG1 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP COPY SUBR)
(MOVE 3Q 1Q)
(MOVEI 2Q (QUOTE 0Q))
(MOVEI 1Q (QUOTE 0Q))
(JCALL 3Q (E SUBST) S)
NIL
(LAP PUTSYM FSUBR)
(PUSH P 1Q)
TAG1 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG6)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVEM 1Q 0Q P)
(PUSH P 5Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG10)
(MOVE 2Q -1Q P)
(MOVE 1Q 2Q)
(CALL 2Q (E *PUTSYM) S)
(JRST 0Q TAG7)
TAG10 (HLRZ@ 1Q -1Q P)
(PUSH P 1Q)
(HRRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E *EVAL) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E *PUTSYM) S)
TAG7 (POP P -1Q P)
(JRST 0Q TAG1)
TAG6 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP GETSYM FSUBR)
(PUSH P 1Q)
(HRRZ@ 1Q 1Q)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E NCONS) S)
(PUSH P 1Q)
TAG1 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG6)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVEM 1Q -1Q P)
(PUSH P 5Q)
(CALL 1Q (E *GETSYM) S)
(PUSH P -1Q P)
(PUSH P 1Q)
(JUMPE 1Q TAG13)
(CALL 1Q (E NUMVAL) S)
(HLRZ@ 3Q -5Q P)
(MOVE 2Q 1Q)
(MOVE 1Q -4Q P)
(CALL 3Q (E PUTPROP) S)
(JRST 0Q TAG12)
TAG13 (MOVEI 2Q (QUOTE NIL))
(CALL 2Q (E OUTC) S)
(PUSH P 1Q)
(CALL 0Q (E TALK) S)
(MOVEI 1Q (QUOTE 1Q))
(CALL 1Q (E LINES) S)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q -5Q P)
(CALL 2Q (E PRINA) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE " not in Symbol Table.") S)
(CALL 2Q (E PRINAC) S)
(CALL 0Q (E TERPRI) S)
(MOVEI 2Q (QUOTE NIL))
(POP P 1Q)
(CALL 2Q (E OUTC) S)
TAG12 (MOVE 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E TCONC) S)
(SUB P (C 2Q 0Q 2Q 0Q))
(POP P -2Q P)
(JRST 0Q TAG1)
TAG6 (HLRZ@ 1Q 0Q P)
(SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP RPUTSYM FSUBR)
(PUSH P 1Q)
TAG1 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG6)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVEM 1Q 0Q P)
(PUSH P 5Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG10)
(MOVE 2Q -1Q P)
(MOVE 1Q 2Q)
(CALL 2Q (E *RPUTSYM) S)
(JRST 0Q TAG7)
TAG10 (HLRZ@ 1Q -1Q P)
(PUSH P 1Q)
(HRRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E *EVAL) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E *RPUTSYM) S)
TAG7 (POP P -1Q P)
(JRST 0Q TAG1)
TAG6 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP RGETSYM FSUBR)
(PUSH P 1Q)
(HRRZ@ 1Q 1Q)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E NCONS) S)
(PUSH P 1Q)
TAG1 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG6)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVEM 1Q -1Q P)
(PUSH P 5Q)
(CALL 1Q (E *RGETSYM) S)
(PUSH P -1Q P)
(PUSH P 1Q)
(JUMPE 1Q TAG13)
(CALL 1Q (E NUMVAL) S)
(HLRZ@ 3Q -5Q P)
(MOVE 2Q 1Q)
(MOVE 1Q -4Q P)
(CALL 3Q (E PUTPROP) S)
(JRST 0Q TAG12)
TAG13 (MOVEI 2Q (QUOTE NIL))
(CALL 2Q (E OUTC) S)
(PUSH P 1Q)
(CALL 0Q (E TALK) S)
(MOVEI 1Q (QUOTE 1Q))
(CALL 1Q (E LINES) S)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q -5Q P)
(CALL 2Q (E PRINA) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE " not in Symbol Table.") S)
(CALL 2Q (E PRINAC) S)
(CALL 0Q (E TERPRI) S)
(MOVEI 2Q (QUOTE NIL))
(POP P 1Q)
(CALL 2Q (E OUTC) S)
TAG12 (MOVE 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E TCONC) S)
(SUB P (C 2Q 0Q 2Q 0Q))
(POP P -2Q P)
(JRST 0Q TAG1)
TAG6 (HLRZ@ 1Q 0Q P)
(SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP LE SUBR)
(CALL 2Q (E *GREAT) S)
(JUMPE 1Q TAG1)
(TDZA 1Q 1Q)
TAG1 (MOVEI 1Q (QUOTE T) S)
(POPJ P)
NIL
(LAP GE SUBR)
(CALL 2Q (E *LESS) S)
(JUMPE 1Q TAG1)
(TDZA 1Q 1Q)
TAG1 (MOVEI 1Q (QUOTE T) S)
(POPJ P)
NIL
(LAP =0 SUBR)
(CAIE 1Q (QUOTE 0Q))
(TDZA 1Q 1Q)
(MOVEI 1Q (QUOTE T) S)
(POPJ P)
NIL
(LAP INP SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CAME 1Q 2Q)
(JRST 0Q TAG2)
(MOVEI 1Q (QUOTE T) S)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q 2Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG3)
(MOVEI 1Q (QUOTE NIL))
(JRST 0Q TAG1)
TAG3 (HLRZ@ 2Q 2Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E INP) S)
(JUMPE 1Q TAG4)
(MOVEI 1Q (QUOTE T) S)
(JRST 0Q TAG1)
TAG4 (HRRZ@ 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E INP) S)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP ATTACH SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(MOVE 1Q 2Q)
(CALL 1Q (E CONSP) S)
(JUMPE 1Q TAG2)
(HRRZ@ 2Q 0Q P)
(HLRZ@ 1Q 0Q P)
(CALL 2Q (E CONS) S)
(HRRM@ 1Q 0Q P)
(MOVE 5Q -1Q P)
(HRLM@ 5Q 0Q P)
(MOVE 1Q 0Q P)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q 0Q P)
(JUMPN 1Q TAG3)
(MOVE 1Q -1Q P)
(CALL 1Q (E NCONS) S)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE "CAN'T ATTACH TO ATOM") S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E ERROR) S)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP ENTER SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P (SPECIAL MEMBFN) S)
(CALLF@ 2Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JUMPE 1Q TAG2)
(MOVE 1Q 0Q P)
(JRST 0Q TAG1)
TAG2 (MOVE 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E CONS) S)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP NCONC1 SUBR)
(PUSH P 1Q)
(MOVE 1Q 2Q)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(JCALL 2Q (E *NCONC) S)
NIL
(LAP ADDPROP SUBR)
(PUSH P 2Q)
(MOVE 2Q 3Q)
(PUSH P 1Q)
(CALL 2Q (E GET) S)
(EXCH 2Q 1Q)
(EXCH 1Q -1Q P)
(MOVEM 3Q -1Q P)
(CALL 2Q (E ENTER) S)
(MOVE 3Q -1Q P)
(MOVE 2Q 1Q)
(POP P 1Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 3Q (E PUTPROP) S)
NIL
(LAP PUTLIST SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
TAG1 (MOVE 5Q -2Q P)
(JUMPE 5Q TAG6)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVE 3Q 0Q P)
(MOVE 2Q -1Q P)
(MOVEM 5Q -2Q P)
(CALL 3Q (E PUTPROP) S)
(JRST 0Q TAG1)
TAG6 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP REMLIST SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
TAG1 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG6)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVE 2Q 0Q P)
(CALL 2Q (E REMPROP) S)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG1)
TAG6 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP REMPROPS SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
TAG1 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG6)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVE 2Q 1Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E REMPROP) S)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG1)
TAG6 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP UNION SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 5Q -3Q P)
(JUMPN 5Q TAG6)
(MOVE 1Q 0Q P)
(JUMPN 1Q TAG7)
(MOVE 1Q -2Q P)
TAG7 (JRST 0Q TAG2)
TAG6 (HLRZ@ 1Q 5Q)
(PUSH P (SPECIAL MEMBFN) S)
(PUSH P 1Q)
(MOVE 2Q -2Q P)
(JUMPN 2Q TAG10)
(MOVE 2Q -4Q P)
TAG10 (POP P 1Q)
(CALLF@ 2Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JUMPN 1Q TAG5)
(MOVE 5Q 0Q P)
(JUMPN 5Q TAG11)
(MOVE 2Q -2Q P)
(HLRZ@ 1Q -3Q P)
(CALL 2Q (E CONS) S)
(MOVE 5Q 1Q)
(MOVEM 1Q -1Q P)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG5)
TAG11 (MOVE 2Q -2Q P)
(HLRZ@ 1Q -3Q P)
(CALL 2Q (E CONS) S)
(HRRM@ 1Q -1Q P)
(HRRZ@ 5Q -1Q P)
(MOVEM 5Q -1Q P)
TAG5 (HRRZ@ 5Q -3Q P)
(MOVEM 5Q -3Q P)
(JRST 0Q TAG1)
TAG2 (SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP INTERSECTION SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 5Q -3Q P)
(JUMPN 5Q TAG6)
(MOVE 1Q 0Q P)
(JRST 0Q TAG2)
TAG6 (MOVE 2Q -2Q P)
(HLRZ@ 1Q 5Q)
(PUSH P (SPECIAL MEMBFN) S)
(CALLF@ 2Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JUMPE 1Q TAG5)
(MOVE 5Q 0Q P)
(JUMPN 5Q TAG7)
(HLRZ@ 1Q -3Q P)
(CALL 1Q (E NCONS) S)
(MOVE 5Q 1Q)
(MOVEM 1Q -1Q P)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG5)
TAG7 (HLRZ@ 1Q -3Q P)
(CALL 1Q (E NCONS) S)
(HRRM@ 1Q -1Q P)
(HRRZ@ 5Q -1Q P)
(MOVEM 5Q -1Q P)
TAG5 (HRRZ@ 5Q -3Q P)
(MOVEM 5Q -3Q P)
(JRST 0Q TAG1)
TAG2 (SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(DEFV MEMBFN MEMBER)
(LAP INSERT SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P 4Q)
(JUMPN 2Q TAG3)
(CALL 1Q (E NCONS) S)
(JRST 0Q TAG2)
TAG3 (MOVE 1Q 2Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG4)
(MOVEI 1Q (QUOTE "CAN'T INSERT INTO ATOM") S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -2Q P)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E ERROR) S)
(JRST 0Q TAG2)
TAG4 (JUMPN 3Q TAG7)
(MOVEI 5Q (QUOTE LEXORDER) S)
(MOVEM 5Q -1Q P)
TAG7 (PUSH P -2Q P)
(MOVE 1Q -3Q P)
(CALL 1Q (E LENGTH) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 1Q -2Q P)
(CALL 1Q (E ADD1) S)
(MOVEI 2Q (QUOTE 2Q))
(CALL 2Q (E *QUO) S)
(MOVE 2Q 1Q)
(MOVEM 1Q 0Q P)
(MOVE 1Q -3Q P)
(CALL 2Q (E FNTH) S)
(MOVEM 1Q -1Q P)
(MOVEI 2Q (QUOTE 3Q))
(MOVE 1Q -2Q P)
(CALL 2Q (E *LESS) S)
(JUMPE 1Q TAG14)
(HLRZ@ 2Q -1Q P)
(MOVE 1Q -7Q P)
(CALLF@ 2Q -5Q P)
(JUMPE 1Q TAG16)
(MOVE 5Q -4Q P)
(JUMPE 5Q TAG22)
(HLRZ@ 2Q -1Q P)
(MOVE 1Q -7Q P)
(CALL 2Q (E EQUAL) S)
(JUMPN 1Q TAG20)
TAG22 (HRRZ@ 2Q -1Q P)
(HLRZ@ 1Q -1Q P)
(CALL 2Q (E CONS) S)
(HRRM@ 1Q -1Q P)
(MOVE 5Q -7Q P)
(HRLM@ 5Q -1Q P)
TAG20 (JRST 0Q TAG15)
TAG16 (MOVE 5Q -2Q P)
(CAIE 5Q (QUOTE 1Q))
(JRST 0Q TAG23)
(HRRZ@ 2Q -1Q P)
(MOVE 1Q -7Q P)
(CALL 2Q (E CONS) S)
(HRRM@ 1Q -1Q P)
(JRST 0Q TAG15)
TAG23 (HRRZ@ 2Q -1Q P)
(HLRZ@ 2Q 2Q)
(MOVE 1Q -7Q P)
(CALLF@ 2Q -5Q P)
(JUMPE 1Q TAG24)
(MOVE 5Q -4Q P)
(JUMPE 5Q TAG30)
(HRRZ@ 2Q -1Q P)
(HLRZ@ 2Q 2Q)
(MOVE 1Q -7Q P)
(CALL 2Q (E EQUAL) S)
(JUMPN 1Q TAG26)
TAG30 (HRRZ@ 2Q -1Q P)
(HRRZ@ 2Q 2Q)
(HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E CONS) S)
(HRRZ@ 5Q -1Q P)
(HRRM@ 1Q 5Q)
(HRRZ@ 5Q -1Q P)
(MOVE 4Q -7Q P)
(HRLM@ 4Q 5Q)
TAG26 (JRST 0Q TAG15)
TAG24 (HRRZ@ 2Q -1Q P)
(HRRZ@ 2Q 2Q)
(MOVE 1Q -7Q P)
(CALL 2Q (E CONS) S)
(HRRZ@ 5Q -1Q P)
(HRRM@ 1Q 5Q)
TAG15 (JRST 0Q TAG13)
TAG14 (HLRZ@ 2Q -1Q P)
(MOVE 1Q -7Q P)
(CALLF@ 2Q -5Q P)
(JUMPE 1Q TAG32)
(MOVE 5Q -4Q P)
(JUMPE 5Q TAG36)
(HLRZ@ 2Q -1Q P)
(MOVE 1Q -7Q P)
(CALL 2Q (E EQUAL) S)
(JUMPN 1Q TAG34)
TAG36 (MOVE 1Q 0Q P)
(CALL 1Q (E SUB1) S)
(MOVEM 1Q -2Q P)
(JRST 0Q TAG1)
TAG34 (JRST 0Q TAG13)
TAG32 (HRRZ@ 5Q -1Q P)
(MOVE 2Q 0Q P)
(MOVE 1Q -2Q P)
(MOVEM 5Q -3Q P)
(CALL 2Q (E *DIF) S)
(MOVEM 1Q -2Q P)
(JRST 0Q TAG1)
TAG13 (MOVE 1Q -6Q P)
(SUB P (C 4Q 0Q 4Q 0Q))
TAG2 (SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP MERGE SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P 4Q)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E NCONS) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(JUMPN 3Q TAG7)
(MOVEI 5Q (QUOTE LEXORDER) S)
(MOVEM 5Q -3Q P)
TAG7
TAG1 (MOVE 5Q -5Q P)
(JUMPE 5Q TAG2)
(MOVE 5Q -4Q P)
(JUMPN 5Q TAG11)
(MOVE 5Q -5Q P)
(MOVEM 5Q -4Q P)
(JRST 0Q TAG2)
TAG11 (HLRZ@ 2Q 5Q)
(HLRZ@ 1Q -5Q P)
(CALLF@ 2Q -3Q P)
(JUMPE 1Q TAG12)
(HLRZ@ 5Q -5Q P)
(HRRZ@ 4Q -5Q P)
(MOVEM 4Q -5Q P)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG10)
TAG12 (HLRZ@ 5Q -4Q P)
(HRRZ@ 4Q -4Q P)
(MOVEM 4Q -4Q P)
(MOVEM 5Q 0Q P)
TAG10 (MOVE 5Q -2Q P)
(JUMPE 5Q TAG16)
(MOVE 2Q 0Q P)
(HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E EQUAL) S)
(JUMPN 1Q TAG15)
TAG16 (MOVE 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E TCONC) S)
TAG15 (JRST 0Q TAG1)
TAG2 (MOVE 5Q -4Q P)
(JUMPN 5Q TAG20)
(HLRZ@ 1Q -1Q P)
(JRST 0Q TAG3)
TAG20 (MOVE 5Q -2Q P)
(JUMPE 5Q TAG24)
(HLRZ@ 2Q -4Q P)
(HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E EQUAL) S)
(JUMPN 1Q TAG23)
TAG24 (HLRZ@ 2Q -4Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E TCONC) S)
TAG23 (HRRZ@ 5Q -4Q P)
(MOVEM 5Q -4Q P)
(JRST 0Q TAG2)
TAG3 (SUB P (C 6Q 0Q 6Q 0Q))
(POPJ P)
NIL
(LAP SORT SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG6)
(MOVE 1Q -3Q P)
(JRST 0Q TAG2)
TAG6 (HLRZ@ 1Q -3Q P)
(CALL 1Q (E NCONS) S)
(MOVEM 1Q 0Q P)
(JUMPN 2Q TAG11)
(MOVEI 5Q (QUOTE LEXORDER) S)
(MOVEM 5Q -2Q P)
TAG11
TAG1 (HRRZ@ 5Q -3Q P)
(MOVEM 5Q -3Q P)
(JUMPN 5Q TAG13)
(MOVE 1Q 0Q P)
(JRST 0Q TAG2)
TAG13 (MOVE 4Q -1Q P)
(MOVE 3Q -2Q P)
(MOVE 2Q 0Q P)
(HLRZ@ 1Q 5Q)
(CALL 4Q (E INSERT) S)
(JRST 0Q TAG1)
TAG2 (SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP FNTH SUBR)
(PUSH P 1Q)
(MOVE 1Q 2Q)
(PUSHJ P NUMVAL)
(MOVE 2Q 1Q)
(POP P 1Q)
TAG1 (CAIN 2Q 1Q)
(POPJ P)
(SUB 2Q (C 0Q 0Q 1Q 0Q))
(HRRZ@ 1Q 1Q)
(JRST 0Q TAG1)
NIL
(LAP SUBSTRING SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(CALL 1Q (E AEXPLODEC) S)
(PUSH P 1Q)
(CALL 1Q (E LENGTH) S)
(MOVE 4Q 1Q)
(MOVEI 3Q (QUOTE 1Q))
(MOVEI 2Q (QUOTE 1Q))
(PUSH P 1Q)
(MOVE 1Q -3Q P)
(PUSHJ P %SUBSTR)
(MOVE 4Q 0Q P)
(MOVE 3Q 1Q)
(MOVE 2Q 4Q)
(MOVEM 1Q -3Q P)
(MOVE 1Q -2Q P)
(PUSHJ P %SUBSTR)
(MOVEM 1Q -2Q P)
(CAMN 1Q 0Q P)
(JRST 0Q TAG5)
(MOVE 2Q 1Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E FNTH) S)
(MOVEM 1Q -2Q P)
(HRRZ@ 1Q 1Q)
(CALL 1Q (E FREELIST) S)
(HLLZS@ 0Q -2Q P)
(JRST 0Q TAG4)
TAG5 (MOVE 1Q -1Q P)
(CALL 1Q (E LAST) S)
(MOVEM 1Q -2Q P)
TAG4 (MOVEI 5Q (QUOTE (42Q)) S)
(HRRM@ 5Q -2Q P)
(MOVE 2Q -3Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E FNTH) S)
(MOVEI 2Q (QUOTE 42Q))
(CALL 2Q (E XCONS) S)
(MOVEM 1Q -3Q P)
(CALL 1Q (E READLIST) S)
(HLLZS@ 0Q -2Q P)
(PUSH P 1Q)
(MOVE 1Q -4Q P)
(CALL 1Q (E FREE) S)
(MOVE 1Q -2Q P)
(CALL 1Q (E FREELIST) S)
(POP P 1Q)
(SUB P (C 5Q 0Q 5Q 0Q))
(POPJ P)
NIL
(LAP %SUBSTR SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P 4Q)
(CALL 1Q (E NUMBERP) S)
(JUMPN 1Q TAG2)
(MOVE 5Q -2Q P)
(MOVEM 5Q -3Q P)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q -3Q P)
(CALL 1Q (E MINUSP) S)
(JUMPE 1Q TAG3)
(MOVE 2Q -3Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E *PLUS) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q -3Q P)
TAG3
TAG1 (MOVE 2Q -1Q P)
(MOVE 1Q -3Q P)
(CALL 2Q (E *LESS) S)
(JUMPN 1Q TAG6)
(MOVE 2Q 0Q P)
(MOVE 1Q -3Q P)
(CALL 2Q (E *GREAT) S)
(JUMPE 1Q TAG5)
TAG6 (MOVEI 1Q (QUOTE "STRING TOO SHORT - SUBSTRING") S)
(CALL 1Q (E ERROR) S)
TAG5 (MOVE 1Q -3Q P)
(SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP CONCAT SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CALL 1Q (E AEXPLODEC) S)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(CALL 1Q (E AEXPLODEC) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE 42Q))
(CALL 1Q (E NCONS) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E *NCONC) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E *NCONC) S)
(MOVEI 2Q (QUOTE 42Q))
(CALL 2Q (E XCONS) S)
(MOVEM 1Q 0Q P)
(CALL 1Q (E READLIST) S)
(PUSH P 1Q)
(MOVE 1Q -1Q P)
(CALL 1Q (E FREELIST) S)
(POP P 1Q)
(SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP MAPATOMS SUBR)
(PUSH P (SPECIAL OBLIST) S)
(PUSH P 1Q)
TAG1 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG6)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVE 2Q 1Q)
(MOVE 1Q 0Q P)
(MOVEM 5Q -1Q P)
(PUSHJ P *MAPC)
(JRST 0Q TAG1)
TAG6 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP EVERY LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVE 5Q -2Q P)
(HRRZ 5Q 1Q 5Q)
(PUSH P 5Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVEI 2Q (QUOTE 1Q))
(MOVE 1Q -2Q P)
(CALL 2Q (E *GREAT) S)
(JUMPE 1Q TAG10)
(MOVE 1Q -2Q P)
(ADD 1Q -4Q P)
(HRRZ 1Q -577777Q 1Q)
(MOVE 2Q 0Q P)
(CALL 2Q (E CONS) S)
(MOVEM 1Q 0Q P)
(MOVE 1Q -2Q P)
(CALL 1Q (E SUB1) S)
(MOVEM 1Q -2Q P)
(JRST 0Q TAG1)
TAG10 (MOVEI 2Q (QUOTE NIL))
(MOVE 1Q 0Q P)
(CALL 2Q (E *APPEND) S)
(MOVEM 1Q -2Q P)
TAG2 (MOVE 2Q -2Q P)
(MOVEI 1Q (QUOTE NIL))
(CALL 2Q (E MEMB) S)
(JUMPE 1Q TAG12)
(MOVEI 1Q (QUOTE T) S)
(JRST 0Q TAG4)
TAG12 (PUSH P -2Q P)
(PUSH P -1Q P)
TAG3 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG17)
(MOVE 5Q 0Q P)
(JUMPE 5Q TAG17)
(HRRZ@ 5Q -1Q P)
(HRRZ@ 4Q 0Q P)
(PUSH P 4Q)
(PUSH P 5Q)
(HLRZ@ 1Q -3Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG23)
(MOVEI 1Q (QUOTE "NON-NULL TAIL - EVERY/SOME") S)
(CALL 1Q (E ERROR) S)
TAG23 (HLRZ@ 5Q -3Q P)
(HLRZ@ 5Q 5Q)
(HRLM@ 5Q -2Q P)
(HLRZ@ 5Q -3Q P)
(HRRZ@ 5Q 5Q)
(HRLM@ 5Q -3Q P)
(POP P -3Q P)
(POP P -1Q P)
(JRST 0Q TAG3)
TAG17 (SUB P (C 2Q 0Q 2Q 0Q))
(MOVE 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E *APPLY) S)
(JUMPN 1Q TAG2)
(JRST 0Q TAG5)
TAG5 (MOVEI 1Q (QUOTE NIL))
TAG4 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP SOME LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVE 5Q -2Q P)
(HRRZ 5Q 1Q 5Q)
(PUSH P 5Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVEI 2Q (QUOTE 1Q))
(MOVE 1Q -3Q P)
(CALL 2Q (E *GREAT) S)
(JUMPE 1Q TAG10)
(MOVE 1Q -3Q P)
(ADD 1Q -5Q P)
(HRRZ 1Q -577777Q 1Q)
(MOVE 2Q 0Q P)
(CALL 2Q (E CONS) S)
(MOVEM 1Q 0Q P)
(MOVE 1Q -3Q P)
(CALL 1Q (E SUB1) S)
(MOVEM 1Q -3Q P)
(JRST 0Q TAG1)
TAG10 (MOVEI 2Q (QUOTE NIL))
(MOVE 1Q 0Q P)
(CALL 2Q (E *APPEND) S)
(MOVEM 1Q -3Q P)
TAG2 (MOVE 2Q -3Q P)
(MOVEI 1Q (QUOTE NIL))
(CALL 2Q (E MEMB) S)
(JUMPN 1Q TAG5)
(PUSH P -3Q P)
(PUSH P -1Q P)
TAG3 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG16)
(MOVE 5Q 0Q P)
(JUMPE 5Q TAG16)
(HRRZ@ 5Q -1Q P)
(HRRZ@ 4Q 0Q P)
(PUSH P 4Q)
(PUSH P 5Q)
(HLRZ@ 1Q -3Q P)
(MOVEM 1Q -5Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG22)
(MOVEI 1Q (QUOTE "NON-NULL TAIL - EVERY/SOME") S)
(CALL 1Q (E ERROR) S)
TAG22 (HLRZ@ 5Q -3Q P)
(HLRZ@ 5Q 5Q)
(HRLM@ 5Q -2Q P)
(HLRZ@ 5Q -3Q P)
(HRRZ@ 5Q 5Q)
(HRLM@ 5Q -3Q P)
(POP P -3Q P)
(POP P -1Q P)
(JRST 0Q TAG3)
TAG16 (SUB P (C 2Q 0Q 2Q 0Q))
(MOVE 2Q 0Q P)
(MOVE 1Q -2Q P)
(CALL 2Q (E *APPLY) S)
(JUMPE 1Q TAG24)
(MOVE 1Q -1Q P)
(JRST 0Q TAG4)
TAG24 (JRST 0Q TAG2)
TAG5 (MOVEI 1Q (QUOTE NIL))
TAG4 (SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP SUBSET SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E NCONS) S)
(PUSH P 1Q)
TAG1 (MOVE 5Q -1Q P)
(JUMPN 5Q TAG6)
(HLRZ@ 1Q 0Q P)
(JRST 0Q TAG2)
TAG6 (MOVE 1Q 5Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG7)
(MOVEI 1Q (QUOTE "NON-NULL TAIL - SUBSET") S)
(CALL 1Q (E ERROR) S)
(JRST 0Q TAG5)
TAG7 (HLRZ@ 1Q 5Q)
(CALLF@ 1Q -2Q P)
(JUMPE 1Q TAG10)
(HLRZ@ 2Q -1Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E TCONC) S)
TAG10
TAG5 (HRRZ@ 5Q -1Q P)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG1)
TAG2 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP THROW FSUBR)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E *EVAL) S)
(MOVEM 1Q (SPECIAL THROW) S)
(HRRZ@ 5Q 0Q P)
(JUMPE 5Q TAG2)
(HLRZ@ 5Q 5Q)
TAG2 (MOVEM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 1Q (E ERR) S)
NIL
(LAP CATCH FSUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG4 0Q))
(MOVEI 1Q (QUOTE T) S)
(JSP 13Q *ERRSET1)
(HLRZ@ 1Q -6Q P)
(CALL 1Q (E *EVAL) S)
(JRST 0Q *ERRSET2)
TAG4 (CALL 1Q (E %CATCH) S)
(JUMPN 1Q TAG3)
(HRRZ@ 1Q 0Q P)
(MOVEM 1Q 0Q P)
(JUMPN 1Q TAG2)
TAG3 (MOVE 1Q (SPECIAL THROW) S)
(JRST 0Q TAG1)
TAG2 (HLRZ@ 1Q 0Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG5)
(HLRZ@ 5Q 0Q P)
(CAME 5Q (SPECIAL CATCH) S)
(JRST 0Q TAG7)
(MOVE 1Q (SPECIAL THROW) S)
(JRST 0Q TAG6)
TAG7 (MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E ERR) S)
TAG6 (JRST 0Q TAG1)
TAG5 (MOVEI 2Q (QUOTE ((ERR (QUOTE THROW)))) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E *APPEND) S)
(MOVEI 2Q (QUOTE CATCH) S)
(CALL 2Q (E XCONS) S)
(CALL 17Q (E SELECTQ) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP %CATCH SUBR)
(PUSH P 1Q)
(CALL 1Q (E CONSP) S)
(JUMPE 1Q TAG2)
(HLRZ@ 5Q 0Q P)
(MOVEM 5Q (SPECIAL THROW) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E FREE) S)
(MOVEI 1Q (QUOTE T) S)
(JRST 0Q TAG1)
TAG2 (MOVE 5Q 0Q P)
(CAIN 5Q (QUOTE THROW) S)
(JRST 0Q TAG3)
(MOVE 1Q 5Q)
(CALL 1Q (E ERR) S)
TAG3
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP TIMER FSUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(JUMPE 1Q TAG5)
(CALL 0Q (E TIME) S)
(MOVEM 1Q 0Q P)
(CALL 0Q (E GCTIME) S)
(MOVEM 1Q -2Q P)
(CALL 0Q (E DTIME) S)
(MOVEM 1Q -3Q P)
(CALL 0Q (E SPEAK) S)
(MOVEM 1Q -1Q P)
(MOVE 1Q -5Q P)
(CALL 17Q (E PROGN) S)
(MOVEM 1Q -4Q P)
(JRST 0Q TAG4)
TAG5 (MOVE 5Q (SPECIAL %%TIME) S)
(MOVE 4Q (SPECIAL %%GCTIME) S)
(MOVE 3Q (SPECIAL %%DTIME) S)
(MOVE 2Q (SPECIAL %%SPEAK) S)
(MOVEM 2Q -1Q P)
(MOVEM 3Q -3Q P)
(MOVEM 4Q -2Q P)
(MOVEM 5Q 0Q P)
TAG4 (CALL 0Q (E SPEAK) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E *DIF) S)
(MOVEM 1Q -1Q P)
(CALL 0Q (E TIME) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E *DIF) S)
(MOVEM 1Q 0Q P)
(CALL 0Q (E GCTIME) S)
(MOVE 2Q -2Q P)
(CALL 2Q (E *DIF) S)
(MOVEM 1Q -2Q P)
(CALL 0Q (E DTIME) S)
(MOVE 2Q -3Q P)
(CALL 2Q (E *DIF) S)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL BASE) S)
(MOVEM 1Q -3Q P)
(MOVEI 5Q (QUOTE -12Q))
(MOVEM 5Q (SPECIAL BASE) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE NIL))
(CALL 2Q (E OUTC) S)
(PUSH P 1Q)
(CALL 0Q (E TALK) S)
(MOVEI 1Q (QUOTE 0Q))
(CALL 1Q (E LINES) S)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q -1Q P)
(CALL 2Q (E PRINA) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE " msec CPU (") S)
(CALL 2Q (E PRINAC) S)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q -3Q P)
(CALL 2Q (E PRINA) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE " msec GC), ") S)
(CALL 2Q (E PRINAC) S)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q -4Q P)
(CALL 2Q (E PRINA) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE " msec clock, ") S)
(CALL 2Q (E PRINAC) S)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q -2Q P)
(CALL 2Q (E PRINA) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE " conses") S)
(CALL 2Q (E PRINAC) S)
(CALL 0Q (E TERPRI) S)
(MOVEI 2Q (QUOTE NIL))
(POP P 1Q)
(CALL 2Q (E OUTC) S)
(PUSHJ P SPECSTR)
(MOVE 5Q -5Q P)
(JUMPN 5Q TAG13)
(CALL 0Q (E TIME) S)
(MOVEM 1Q (SPECIAL %%TIME) S)
(CALL 0Q (E GCTIME) S)
(MOVEM 1Q (SPECIAL %%GCTIME) S)
(CALL 0Q (E DTIME) S)
(MOVEM 1Q (SPECIAL %%DTIME) S)
(CALL 0Q (E SPEAK) S)
(MOVEM 1Q (SPECIAL %%SPEAK) S)
TAG13 (MOVE 1Q -4Q P)
(SUB P (C 6Q 0Q 6Q 0Q))
(POPJ P)
NIL
(DEFV %%TIME 0Q)
(DEFV %%DTIME 0Q)
(DEFV %%GCTIME 0Q)
(DEFV %%SPEAK 0Q)
(LAP BOUNDP SUBR)
(PUSH P 1Q)
(CALL 1Q (E LITATOM) S)
(JUMPE 1Q TAG2)
(MOVEI 2Q (QUOTE VALUE) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E GET) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG4)
(HRRZ@ 5Q 1Q)
(PUSH P 5Q)
(CALL 0Q (E UNBOUND) S)
(PUSH P 1Q)
(CAME 1Q -1Q P)
(JRST 0Q TAG5)
(TDZA 1Q 1Q)
TAG5 (MOVEI 1Q (QUOTE T) S)
(SUB P (C 2Q 0Q 2Q 0Q))
TAG4
TAG2 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP EXPFS SUBR)
(MOVE 5Q 1Q)
(MOVEI 4Q (QUOTE 0Q))
(MOVEI 3Q (QUOTE 0Q))
(MOVEI 2Q (QUOTE 0Q))
(MOVEI 1Q (QUOTE 0Q))
(JCALL 5Q (E REALLOC) S)
NIL
(LAP EXPFWS SUBR)
(MOVEI 5Q (QUOTE 0Q))
(MOVEI 4Q (QUOTE 0Q))
(MOVEI 3Q (QUOTE 0Q))
(MOVEI 2Q (QUOTE 0Q))
(JCALL 5Q (E REALLOC) S)
NIL
(LAP EXPBPS SUBR)
(MOVEI 5Q (QUOTE 0Q))
(MOVEI 4Q (QUOTE 0Q))
(MOVEI 3Q (QUOTE 0Q))
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE 0Q))
(JCALL 5Q (E REALLOC) S)
NIL
(LAP GETDEF FSUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(HLRZ@ 1Q 1Q)
(CALL 1Q (E %DEVP) S)
(JUMPE 1Q TAG6)
(HLRZ@ 5Q -3Q P)
(HRRZ@ 4Q -3Q P)
(MOVEM 4Q -3Q P)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG5)
TAG6 (MOVEI 5Q (QUOTE DSK:) S)
(MOVEM 5Q 0Q P)
TAG5 (CALL 0Q (E GENSYM) S)
(PUSH P 1Q)
(HLRZ@ 1Q -4Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(CALL 17Q (E INPUT) S)
(MOVEI 2Q (QUOTE NIL))
(CALL 2Q (E INC) S)
(HRRZ@ 5Q -3Q P)
(MOVEM 1Q 0Q P)
(MOVEI 1Q (QUOTE 0Q))
(MOVEM 5Q -3Q P)
(CALL 1Q (E LINES) S)
(PUSH P (C 0Q 0Q TAG10 0Q))
(MOVEI 1Q (QUOTE ERRORX) S)
(JSP 13Q *ERRSET1)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (CALL 0Q (E TYI) S)
(MOVEI 2Q (QUOTE (12Q 13Q 14Q 15Q)) S)
(MOVEM 1Q 0Q P)
(CALL 2Q (E MEMB) S)
(JUMPN 1Q TAG1)
(MOVEI 2Q (QUOTE (50Q 133Q)) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E MEMB) S)
(JUMPE 1Q TAG15)
(CALL 0Q (E READ) S)
(MOVEM 1Q -1Q P)
(CALL 1Q (E LITATOM) S)
(JUMPE 1Q TAG17)
(MOVE 2Q (SPECIAL GETDEF) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E MEMB) S)
(JUMPE 1Q TAG17)
(CALL 0Q (E RDNAM) S)
(MOVEM 1Q -2Q P)
(CALL 1Q (E LITATOM) S)
(JUMPE 1Q TAG17)
(MOVE 1Q -2Q P)
(CALL 1Q (E INTERN) S)
(MOVE 5Q -2Q P)
(MOVEM 1Q -2Q P)
(CAME 1Q 5Q)
(JRST 0Q TAG30)
(CALL 1Q (E NCONS) S)
(CALL 17Q (E REMOB) S)
(JUMPE 1Q TAG17)
TAG30 (MOVE 2Q -14Q P)
(MOVE 1Q -2Q P)
(CALL 2Q (E MEMB) S)
(JUMPE 1Q TAG17)
(CALL 0Q (E PEEKC) S)
(MOVEI 2Q (QUOTE (50Q 133Q)) S)
(CALL 2Q (E MEMB) S)
(JUMPN 1Q TAG17)
(MOVE 1Q 0Q P)
(CALL 1Q (E UNTYI) S)
(MOVE 1Q -2Q P)
(CALL 1Q (E UNBREAK!) S)
(CALL 0Q (E READ) S)
(MOVE 2Q -2Q P)
(CALL 2Q (E XCONS) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E *EVAL) S)
(MOVEI 2Q (QUOTE NIL))
(CALL 2Q (E PRINA) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE 1Q))
(CALL 2Q (E SPACES) S)
(MOVEI 5Q (QUOTE T) S)
(MOVEM 5Q -12Q P)
TAG17
TAG15 (CALL 0Q (E TYI) S)
(CAIN 1Q (QUOTE 12Q))
(JRST 0Q TAG34)
(MOVEI 1Q (QUOTE 31Q))
(CALL 1Q (E UNTYI) S)
TAG34 (JRST 0Q TAG1)
(SUB P (C 3Q 0Q 3Q 0Q))
(JRST 0Q *ERRSET2)
TAG10 (MOVEM 1Q -2Q P)
(MOVEI 1Q (QUOTE 0Q))
(CALL 1Q (E LINES) S)
(MOVEI 2Q (QUOTE T) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E INC) S)
(MOVE 5Q -2Q P)
(CAIN 5Q (QUOTE $EOF$) S)
(JRST 0Q TAG36)
(MOVE 1Q 5Q)
(CALL 1Q (E ERR) S)
TAG36 (MOVE 1Q -1Q P)
(JUMPE 1Q TAG40)
(MOVEI 1Q (QUOTE Functions-Loaded) S)
(JRST 0Q TAG37)
TAG40 (MOVEI 1Q (QUOTE None-Found) S)
TAG37 (SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(DEFV GETDEF (DEFPROP DEFP DEFV SETQ DE DF DM LAP DRM DSM))
(LAP TYPE FSUBR)
(PUSH P 1Q)
(CALL 0Q (E GENSYM) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E CONS) S)
(CALL 17Q (E INPUT) S)
(MOVEI 2Q (QUOTE NIL))
(CALL 2Q (E INC) S)
(MOVEM 1Q 0Q P)
(MOVEI 1Q (QUOTE 0Q))
(CALL 1Q (E LINES) S)
(PUSH P (C 0Q 0Q TAG2 0Q))
(MOVEI 1Q (QUOTE T) S)
(JSP 13Q *ERRSET1)
TAG1 (CALL 0Q (E TYI) S)
(CALL 1Q (E TYO) S)
(JRST 0Q TAG1)
(JRST 0Q *ERRSET2)
TAG2 (MOVEI 1Q (QUOTE 0Q))
(CALL 1Q (E LINES) S)
(MOVEI 2Q (QUOTE T) S)
(POP P 1Q)
(CALL 2Q (E INC) S)
(MOVEI 1Q (QUOTE 0Q))
(JCALL 1Q (E IASCII) S)
NIL
(LAP DIRF FSUBR)
(PUSH P 1Q)
(MOVEI D (QUOTE *) S)
(PUSH P D)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(JUMPE 1Q TAG1)
(HRRZ@ 5Q 1Q)
(JUMPE 5Q TAG7)
(HLRZ@ 5Q 5Q)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG6)
TAG7 (HLRZ@ 1Q 1Q)
(CALL 1Q (E %DEVP) S)
(JUMPN 1Q TAG10)
(HLRZ@ 5Q -2Q P)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG1)
TAG10
TAG6 (HLRZ@ 5Q -2Q P)
(MOVEM 5Q 0Q P)
TAG1 (CALL 0Q (E GENSYM) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E UFDINP) S)
(MOVEI 2Q (QUOTE NIL))
(CALL 2Q (E INC) S)
(MOVEM 1Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG12)
(MOVEI 2Q (QUOTE *) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E CONS) S)
(MOVEM 1Q -1Q P)
TAG12 (MOVEI 1Q (QUOTE 0Q))
(CALL 1Q (E LINES) S)
(PUSH P (C 0Q 0Q TAG13 0Q))
(MOVEI 1Q (QUOTE T) S)
(JSP 13Q *ERRSET1)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG2 (CALL 0Q (E RDFILENAM) S)
(MOVEM 1Q 0Q P)
(HLRZ@ 5Q -10Q P)
(CAIN 5Q (QUOTE *) S)
(JRST 0Q TAG23)
(PUSH P 5Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG25)
(MOVE 2Q -1Q P)
(JRST 0Q TAG24)
TAG25 (HLRZ@ 2Q -1Q P)
TAG24 (POP P 1Q)
(CALL 2Q (E EQSTR) S)
(JUMPE 1Q TAG20)
TAG23 (HRRZ@ 5Q -10Q P)
(CAIN 5Q (QUOTE *) S)
(JRST 0Q TAG27)
(MOVE 1Q 0Q P)
(CALL 1Q (E CONSP) S)
(JUMPE 1Q TAG20)
(HRRZ@ 2Q 0Q P)
(MOVE 1Q 5Q)
(CALL 2Q (E EQSTR) S)
(JUMPE 1Q TAG20)
TAG27 (MOVE 1Q 0Q P)
(CALL 1Q (E PRIN1) S)
(CALL 0Q (E TERPRI) S)
TAG20 (JRST 0Q TAG2)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q *ERRSET2)
TAG13 (MOVEI 2Q (QUOTE T) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E INC) S)
(MOVEI 1Q (QUOTE 0Q))
(SUB P (C 3Q 0Q 3Q 0Q))
(JCALL 1Q (E IASCII) S)
NIL
(LAP HGHIN FSUBR)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL BPORG) S)
(0Q 0Q (SPECIAL BPEND) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E HGHORG) S)
(MOVEM 1Q (SPECIAL BPORG) S)
(CALL 0Q (E HGHEND) S)
(MOVEM 1Q (SPECIAL BPEND) S)
(PUSH P (C 0Q 0Q TAG4 0Q))
(MOVEI 1Q (QUOTE ERRORX) S)
(JSP 13Q *ERRSET1)
(MOVE 1Q -6Q P)
(CALL 17Q (E DSKIN) S)
(JRST 0Q *ERRSET2)
TAG4 (MOVEM 1Q 0Q P)
(MOVE 1Q (SPECIAL BPORG) S)
(CALL 1Q (E HGHORG) S)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E HGHCOR) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG6)
(MOVE 1Q 0Q P)
(CALL 1Q (E ERR) S)
(JRST 0Q TAG5)
TAG6 (HLRZ@ 1Q 0Q P)
(JRST 0Q TAG1)
TAG5 (MOVEI 1Q (QUOTE NIL))
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP DUMPATOMS FSUBR)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL BASE) S)
(0Q 0Q (SPECIAL *NOPOINT) S)
(PUSH P 1Q)
(MOVEI 5Q (QUOTE 10Q))
(MOVEM 5Q (SPECIAL BASE) S)
(CLEARM 5Q (SPECIAL *NOPOINT) S)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(JUMPN 1Q TAG6)
(MOVEI 5Q (QUOTE ((REMOB . LSP))) S)
(MOVEM 5Q -3Q P)
TAG6 (CALL 0Q (E GENSYM) S)
(MOVE 2Q -3Q P)
(CALL 2Q (E CONS) S)
(CALL 17Q (E OUTPUT) S)
(MOVEI 2Q (QUOTE NIL))
(CALL 2Q (E OUTC) S)
(MOVEM 1Q -3Q P)
(MOVE 1Q (SPECIAL REMOB) S)
(CALL 1Q (E REVERSE) S)
(MOVEM 1Q -2Q P)
TAG1 (MOVE 5Q -2Q P)
(JUMPE 5Q TAG2)
(HLRZ@ 1Q 5Q)
(HRRZ@ 2Q 5Q)
(MOVEM 2Q -2Q P)
(MOVEM 1Q 0Q P)
(CALL 2Q (E MEMB) S)
(JUMPE 1Q TAG10)
(MOVE 2Q -2Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E DREMOVE) S)
(MOVEM 1Q -2Q P)
TAG10 (MOVEI 2Q (QUOTE (SUBR FSUBR LSUBR)) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E GETL) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG12)
(MOVEI 2Q (QUOTE FIXNUM) S)
(CALL 1Q (E CADR) S)
(CALL 2Q (E MAKNUM) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE NUMVAL) S)
(CALL 2Q (E XCONS) S)
(HLRZ@ 3Q -1Q P)
(MOVE 2Q 1Q)
(MOVE 1Q 0Q P)
(PUSHJ P %DUMPATOMS)
TAG12 (MOVEI 2Q (QUOTE SYM) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E GET) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG14)
(MOVEI 3Q (QUOTE SYM) S)
(EXCH 2Q 1Q)
(MOVE 1Q 0Q P)
(PUSHJ P %DUMPATOMS)
TAG14 (MOVEI 2Q (QUOTE VALUE) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E GET) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG16)
(MOVEI 2Q (QUOTE FIXNUM) S)
(CALL 2Q (E MAKNUM) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE 11Q))
(CALL 1Q (E EXAMINE) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E *DIF) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE (EXAMINE 11Q)) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE *PLUS) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE NUMVAL) S)
(CALL 2Q (E XCONS) S)
(MOVEI 3Q (QUOTE VALUE) S)
(MOVE 2Q 1Q)
(MOVE 1Q 0Q P)
(PUSHJ P %DUMPATOMS)
(MOVE 2Q (SPECIAL LAPLST) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG20)
(MOVE 2Q (SPECIAL LAPLST) S)
(CALL 2Q (E DREMOVE) S)
(MOVEM 1Q (SPECIAL LAPLST) S)
TAG20 (MOVE 2Q (SPECIAL LAPSLST) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E MEMB) S)
(JUMPN 1Q TAG21)
(MOVE 2Q (SPECIAL LAPSLST) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL LAPSLST) S)
TAG21
TAG16 (JRST 0Q TAG1)
TAG2 (MOVE 1Q (SPECIAL REMOB) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE REMOB) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE DEFV) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE 1Q))
(CALL 2Q (E SPRINT) S)
(CALL 0Q (E TERPRI) S)
(MOVEI 2Q (QUOTE T) S)
(MOVE 1Q -3Q P)
(CALL 2Q (E OUTC) S)
(MOVE 1Q (SPECIAL REMOB) S)
(CALL 17Q (E REMOB) S)
(CLEARM 5Q (SPECIAL REMOB) S)
(MOVEI 1Q (QUOTE NIL))
(SUB P (C 4Q 0Q 4Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP %DUMPATOMS SUBR)
(PUSH P 2Q)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE QUOTE) S)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(MOVE 1Q 3Q)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE QUOTE) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE PUTPROP) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE 1Q))
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 2Q (E SPRINT) S)
NIL
(LAP PRINA SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(MOVE 5Q 2Q)
(JUMPN 5Q TAG1)
(MOVEI 5Q (QUOTE 1Q))
TAG1 (MOVEM 5Q (SPECIAL %%PACO) S)
(MOVEI 5Q (QUOTE PRIN1) S)
(MOVEM 5Q (SPECIAL %%PAFN) S)
(MOVEI 5Q (QUOTE FLATSIZE) S)
(MOVEM 5Q (SPECIAL %%PAFS) S)
(MOVE 1Q -1Q P)
(SUB P (C 2Q 0Q 2Q 0Q))
(JRST 0Q %PRINA)
NIL
(LAP PRINAC SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(MOVE 5Q 2Q)
(JUMPN 5Q TAG1)
(MOVEI 5Q (QUOTE 1Q))
TAG1 (MOVEM 5Q (SPECIAL %%PACO) S)
(MOVEI 5Q (QUOTE PRINC) S)
(MOVEM 5Q (SPECIAL %%PAFN) S)
(MOVEI 5Q (QUOTE FLATSIZEC) S)
(MOVEM 5Q (SPECIAL %%PAFS) S)
(MOVE 1Q -1Q P)
(SUB P (C 2Q 0Q 2Q 0Q))
(JRST 0Q %PRINA)
NIL
(LAP %PRINA SUBR)
(PUSH P 1Q)
(CALL 1Q (E PATOM) S)
(JUMPE 1Q TAG3)
(CALL 0Q (E CHRCT) S)
(PUSH P 1Q)
(MOVE 1Q -1Q P)
(PUSH P (SPECIAL %%PAFS) S)
(CALLF@ 1Q 0Q P)
(MOVEI 2Q (QUOTE 3Q))
(CALL 2Q (E *PLUS) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E *GREAT) S)
(SUB P (C 2Q 0Q 2Q 0Q))
(JUMPE 1Q TAG5)
(MOVE 1Q (SPECIAL %%PACO) S)
(CALL 1Q (E TAB) S)
TAG5 (MOVE 1Q 0Q P)
(PUSH P (SPECIAL %%PAFN) S)
(CALLF@ 1Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG2)
TAG3 (CALL 0Q (E CHRCT) S)
(MOVEI 2Q (QUOTE 16Q))
(CALL 2Q (E *LESS) S)
(JUMPE 1Q TAG10)
(MOVE 1Q (SPECIAL %%PACO) S)
(CALL 1Q (E TAB) S)
TAG10 (MOVEI 1Q (QUOTE 50Q))
(CALL 1Q (E TYO) S)
(PUSH P 0Q P)
TAG1 (HLRZ@ 1Q 0Q P)
(PUSHJ P %PRINA)
(HRRZ@ 1Q 0Q P)
(MOVEM 1Q 0Q P)
(CALL 1Q (E PATOM) S)
(JUMPE 1Q TAG15)
(MOVE 5Q 0Q P)
(JUMPE 5Q TAG17)
(CALL 0Q (E CHRCT) S)
(MOVEI 2Q (QUOTE 3Q))
(CALL 2Q (E *LESS) S)
(JUMPE 1Q TAG21)
(MOVE 1Q (SPECIAL %%PACO) S)
(CALL 1Q (E TAB) S)
TAG21 (MOVEI 1Q (QUOTE " . ") S)
(CALL 1Q (E PRINC) S)
(MOVE 1Q 0Q P)
(PUSHJ P %PRINA)
TAG17 (MOVE 2Q (SPECIAL %%PACO) S)
(MOVEI 1Q (QUOTE 51Q))
(CALL 2Q (E TYOA) S)
(MOVE 1Q -1Q P)
(JRST 0Q TAG11)
TAG15 (MOVE 2Q (SPECIAL %%PACO) S)
(MOVEI 1Q (QUOTE 1Q))
(CALL 2Q (E SPACES) S)
(JRST 0Q TAG1)
TAG11 (SUB P (C 1Q 0Q 1Q 0Q))
TAG2 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP PRINL SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(JUMPN 2Q TAG2)
(MOVEI 5Q (QUOTE 1Q))
(MOVEM 5Q 0Q P)
TAG2 (MOVE 1Q -1Q P)
(CALL 1Q (E CONSP) S)
(JUMPE 1Q TAG4)
(MOVE 2Q 0Q P)
(HLRZ@ 1Q -1Q P)
(CALL 2Q (E PRINA) S)
(HRRZ@ 1Q -1Q P)
(PUSH P 1Q)
TAG1 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG11)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVE 2Q -1Q P)
(MOVEM 1Q 0Q P)
(MOVEI 1Q (QUOTE 1Q))
(PUSH P 5Q)
(CALL 2Q (E SPACES) S)
(MOVE 2Q -2Q P)
(EXCH 1Q -1Q P)
(CALL 2Q (E PRINA) S)
(POP P -1Q P)
(JRST 0Q TAG1)
TAG11 (SUB P (C 1Q 0Q 1Q 0Q))
TAG4 (MOVE 1Q -1Q P)
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP PRINLC SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(JUMPN 2Q TAG2)
(MOVEI 5Q (QUOTE 1Q))
(MOVEM 5Q 0Q P)
TAG2 (MOVE 1Q -1Q P)
(CALL 1Q (E CONSP) S)
(JUMPE 1Q TAG4)
(MOVE 2Q 0Q P)
(HLRZ@ 1Q -1Q P)
(CALL 2Q (E PRINAC) S)
(HRRZ@ 1Q -1Q P)
(PUSH P 1Q)
TAG1 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG11)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVE 2Q -1Q P)
(MOVEM 1Q 0Q P)
(MOVEI 1Q (QUOTE 1Q))
(PUSH P 5Q)
(CALL 2Q (E SPACES) S)
(MOVE 2Q -2Q P)
(EXCH 1Q -1Q P)
(CALL 2Q (E PRINAC) S)
(POP P -1Q P)
(JRST 0Q TAG1)
TAG11 (SUB P (C 1Q 0Q 1Q 0Q))
TAG4 (MOVE 1Q -1Q P)
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP PRINTC SUBR)
(PUSH P 1Q)
(CALL 0Q (E TERPRI) S)
(POP P 1Q)
(CALL 1Q (E PRINC) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE 40Q))
(CALL 1Q (E TYO) S)
(POP P 1Q)
(POPJ P)
NIL
(LAP TYOA SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CALL 0Q (E CHRCT) S)
(CALL 1Q (E =0) S)
(JUMPE 1Q TAG2)
(MOVE 1Q 0Q P)
(JUMPN 1Q TAG3)
(MOVEI 1Q (QUOTE 1Q))
TAG3 (CALL 1Q (E TAB) S)
TAG2 (MOVE 1Q -1Q P)
(SUB P (C 2Q 0Q 2Q 0Q))
(JCALL 1Q (E TYO) S)
NIL
(LAP SPACES SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CALL 0Q (E CHRCT) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E *LESS) S)
(JUMPE 1Q TAG2)
(MOVE 1Q 0Q P)
(JUMPN 1Q TAG3)
(MOVEI 1Q (QUOTE 1Q))
TAG3 (CALL 1Q (E TAB) S)
(JRST 0Q TAG1)
TAG2 (MOVE 5Q -1Q P)
(CAIE 5Q (QUOTE 1Q))
(JRST 0Q TAG4)
(MOVEI 1Q (QUOTE 40Q))
(CALL 1Q (E TYO) S)
(JRST 0Q TAG1)
TAG4 (CALL 0Q (E CHRPOS) S)
(MOVE 2Q 5Q)
(CALL 2Q (E *PLUS) S)
(CALL 1Q (E TAB) S)
TAG1 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP MSG FSUBR)
(PUSH P 1Q)
TAG1 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG6)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVEM 1Q 0Q P)
(PUSH P 5Q)
(CAIE 1Q (QUOTE T) S)
(JRST 0Q TAG10)
(CALL 0Q (E TERPRI) S)
(JRST 0Q TAG7)
TAG10 (CALL 1Q (E NUMBERP) S)
(JUMPE 1Q TAG11)
(MOVEI 2Q (QUOTE 1Q))
(MOVE 1Q -1Q P)
(CALL 2Q (E *LESS) S)
(JUMPE 1Q TAG13)
(MOVE 1Q -1Q P)
(CALL 1Q (E MINUS) S)
(CALL 1Q (E LINES) S)
(JRST 0Q TAG12)
TAG13 (MOVEI 2Q (QUOTE NIL))
(MOVE 1Q -1Q P)
(CALL 2Q (E SPACES) S)
TAG12 (JRST 0Q TAG7)
TAG11 (MOVE 1Q -1Q P)
(CALL 1Q (E STRINGP) S)
(JUMPE 1Q TAG15)
(MOVEI 2Q (QUOTE NIL))
(MOVE 1Q -1Q P)
(CALL 2Q (E PRINAC) S)
(JRST 0Q TAG7)
TAG15 (MOVE 1Q -1Q P)
(CALL 1Q (E CONSP) S)
(JUMPE 1Q TAG16)
(HLRZ@ 5Q -1Q P)
(CAIE 5Q (QUOTE E) S)
(JRST 0Q TAG16)
(HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E *EVAL) S)
(JRST 0Q TAG7)
TAG16 (MOVE 1Q -1Q P)
(CALL 1Q (E CONSP) S)
(JUMPE 1Q TAG21)
(HLRZ@ 5Q -1Q P)
(CAIE 5Q (QUOTE T) S)
(JRST 0Q TAG21)
(HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E *EVAL) S)
(CALL 1Q (E TAB) S)
(JRST 0Q TAG7)
TAG21 (MOVE 1Q -1Q P)
(CALL 1Q (E *EVAL) S)
(MOVEI 2Q (QUOTE NIL))
(CALL 2Q (E PRINA) S)
TAG7 (POP P -1Q P)
(JRST 0Q TAG1)
TAG6 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP TTYMSG FSUBR)
(MOVEI 2Q (QUOTE NIL))
(PUSH P 1Q)
(MOVEI 1Q (QUOTE NIL))
(CALL 2Q (E OUTC) S)
(PUSH P 1Q)
(CALL 0Q (E TALK) S)
(EXCH 1Q -1Q P)
(CALL 17Q (E MSG) S)
(MOVEI 2Q (QUOTE NIL))
(POP P 1Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 2Q (E OUTC) S)
NIL
(LAP TTYIN FSUBR)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE NIL))
(CALL 2Q (E INC) S)
(PUSH P 1Q)
(MOVE 1Q -1Q P)
(CALL 17Q (E PROGN) S)
(MOVEI 2Q (QUOTE NIL))
(PUSH P 1Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E INC) S)
(POP P 1Q)
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP TTYOUT FSUBR)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE NIL))
(CALL 2Q (E OUTC) S)
(PUSH P 1Q)
(MOVE 1Q -1Q P)
(CALL 17Q (E PROGN) S)
(MOVEI 2Q (QUOTE NIL))
(PUSH P 1Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E OUTC) S)
(POP P 1Q)
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP PEEKC SUBR)
(CALL 0Q (E TYI) S)
(JCALL 1Q (E UNTYI) S)
NIL
(LAP DELIM SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG1 0Q))
(PUSH P (C 0Q 0Q (QUOTE 1Q) 0Q))
(PUSH P (C 0Q 0Q (QUOTE 7Q) 0Q))
(MOVEI 2Q (QUOTE NIL))
(CALL 2Q (E MODCHR) S)
(MOVEI 2Q (QUOTE -26Q))
(CALL 2Q (E LSH) S)
(PUSH P 1Q)
(MOVNI 6Q 3Q)
(JCALL 16Q (E BOOLE) S)
TAG1 (CAIE 1Q (QUOTE 2Q))
(TDZA 1Q 1Q)
(MOVEI 1Q (QUOTE T) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL